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Chapter  1 


Introduction 


Data  Base  Management  Systems  (DBMS)  are  playing  an 
increasingly  important  role  in  the  development  of  com- 
puter systems.  There  are  a  great  many  commercial  data 
base  management  systems  available  to  chose  from,  many 
more  in  the  last  10  years  than  ever  before.  Of  the  3 
major  types  of  data  bases  (relational,  hierarchical  and 
network) ,  this  paper  will  concentrate  on  two  commercially 
available  relational  data  base  management  system  products 
for  mainframe  computers,  IBM's  DB2  (Data  Base  2)  and 
ADR's  Datacom/DB. 

But  first,  a  little  information  on  relational 
database  management.  "Ever  since  the  landmark  work  of 
E.F.  Codd  and  C.J.  Date  in  the  early  1970s,  the  concept 
of  relational  database  technology  has  engendered 
considerable  excitement,  as  well  as  confusion,  in  the 
computer  industry."   [60] 
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The  excitement  revolves  around  the  promise  of  rela- 
tional technology:  "the  ability  to  efficiently  access 
and  manipulate  data,  regardless  of  the  manner  in  which 
the  data  is  physically  stored."  [60]  No  programmer 
navigation  is  required  to  move  through  a  relational 
database . 

"The  manipulative  part  of  the  relational  model  con- 
sist of  a  set  of  operators  known  collectively  as  the  re- 
lational algebra,  together  with  a  relational  assignment 
operator  which  assigns  the  value  of  some  arbitrary  im- 
pression of  the  algebra  to  another  relation.  Each  op- 
erator of  the  relational  algebra  takes  either  one  or  two 
relations  as  its  operandi s)  and  produces  a  new  relation 
as  its  result.  Codd  originally  defined  eight  such  op- 
erators, ...  union,  intersection,  difference,  Cartesian 
product,  ...  select,  project,  join  and  divide...".   [IS] 

"According  to  C.  J.  Date,  the  term  'fully 
relational'  refers  to  two  principal  components  of  the  re- 
lational data  base  model:  the  relational  data  structure, 
and  the  relational  algebra. ...  A  data  base  system  may  be 
called  fully  relational  if  its  supports:  Relational  data 
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bases  ( including  the  concepts  of  domain  and  key  and  the 
two  integrity  rules,  data  integrity  and  referential  in- 
tegrity) ;  and  a  language  that  is  at  least  as  powerful  as 
the  relational  algebra  (and  that  would  remain  so,  even  if 
all  facilities  for  loops  and  recursion  were  to  be  de- 
leted)."  [60] 

The  most  fundamental  property  of  a  relational  data 
base  system  is  that  data  is  presented  to  the  user  as 
tables  -  the  mathematical  name  for  a  table  with  unique 
rows  is  a  relation  -  and  that  the  system  provides  suit- 
able operators  for  the  manipulation  of  these  tables. 

An  example  of  a  relational  data  structure  is  pro- 
vided in  Figure  1.0. 
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Figure  1.0   Telephone  Directory 


Figure  1.0  shows  only  a  single  table.  The  table  is 
a  telephone  directory  containing  name,  work  department 
and  telephone  number .  There  is  one  row  for  each 
employee.  Each  row  has  three  values  -  one  for  each 
column  in  the  table. 

A  relational  data  base  is  usually  composed  of  many 
different  tables,  as  shown  in  Figure  1.1  (the  terms  rela- 
tion and  table  are  synonymous).  Thus,  a  relational  data 
base  appears  as  a  collection  of  tables,  each  consisting 
of  columns  and  rows.  The  rows  in  a  table  correspond  to 
records  in  a  file  and  the  columns  correspond  to  the 
fields  within  such  records.  "In  order  for  the  analogy 
with  a  file  to  be  meaningful  such  a  file  should  have 
records  of  one  single  type  only,  all  occurrences  having 
the  same  record  structure  and  layout."   [60] 

The  alternatives  to  presenting  data  as  tables  are  to 
present  data  in  the  form  of  hierarchies  (as  DL/1)  or  in 
the  form  of  networks.  "A  main  difference  between  these 
alternatives  is  that  in  the  case  of  network  or  hierarchi- 
cal data  structures  (see  Figure  1.1),  the  relationships 
between  data  are  to  some  extent  represented  by  the  struc- 
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Figure  1.1   Examples  of  the  Three  Models 
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ture  itself  -  in  a  network  through  Owner-Member  links,  in 
a  hierarchy  through  Parent-Child  links.  In  relational 
data  structures  all  relationships  between  tables  are  rep- 
resented purely  by  the  values  in  the  tables. 

"In  a  system  logically  modeled  as  a  hierarchical  or 
network  structure,  all  potential  access  paths  are  explic- 
itly defined  by  the  data  base  administrator.  Any  appli- 
cation program  that  accessed  the  data  base  must  work 
through  a  predefined  and  preauthorized  access  path. 
These  paths  are  a  major  strength  of  the  hierarchical  and 
network  data  base."    [60] 

A  relational  data  base  management  system  is  the 
software  package  that  will  provide  facilities  to  access 
and  update  tables.  As  such  it  includes  a  language  to  de- 
fine, access  and  update  the  databases,  storage  methods  to 
maintain  data  on  disk,  utility  functions,  concurrency 
control  facilities  and  various  service  functions. 

The  relational  database  is  being  held  up  by  many  as 
a  panacea  for  the  ills  currently  afflicting  modern  DP  op- 
erations:  the  application  backlog,  the  need  to  increase 


1-7 


increase  development  productivity,  the  complexity  and 
changeability  of  business  requirements  and  the  demands  of 
end  users  for  access  to  their  data. 

Database  entity  terminology  can  vary  widely  from 
vendor  to  vendor .  Appendix  C  shows  the  accepted  formal 
relational  term  and  counterparts  for  each  used  by  the  two 
DBMS  vendors  under  study  (ADR  Datacom/DB  and  IBM  DB2). 
For  example,  the  formal  term  relation  is  referred  to  as  a 
table  by  DB2  and  as  a  file  by  ADR.   [19] 


Now,  on  to  Chapter  2  and  some  detail  about  the  two 
relational  DBMS  product  families  under  study.  Chapter  3 
makes  further  comparisons  through  a  miniature  application 
system  implemented  in  each  environment.  Chapter  4  con- 
cludes the  paper  with  impressions  of  the  two  product 
families  and  future  work  which  could  be  done  to  supple- 
ment the  effort  of  this  paper. 
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Chapter  2 
Orientation  to  the  DB2  and  Datacom/DB  product  families 


The  purpose  of  this  Chapter  is  to  provide  the  reader 
with  more  detailed  information  about  both  of  the 
relational  DBMS  product  families  under  study  -  IBM's  DB2 
and  ADR's  Datacom/DB. 

"In  the  late  1960s  and  early  1970s,  Codd  introduced 
the  relational  data  model  as  an  alternative  way  of 
structuring  and  managing  data.  Here,  data  is  structured 
in  two-dimensional  tables  and  related  by  their  value 
only,  not  by  the  logical  structure  of  the  schema.  The 
term  nonnavigational  data  structure  was  created  because 
no  programmer  navigation  is  required  to  move  through  the 
data  structure.  In  conjunction  with  the  data  structure, 
the  relational  model  suggests  data  manipulation  via  a 
series  of  set-theoretic  operators  that  help  achieve 
significant  economies  in  programming  and  end  user  access 
to  data  bases."   [44] 
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IBM's  DB2  is  the  product  of  the  research  into  the 
relational  model  that  began  at  IBM  in  1969.  DB2  (Data 
Base  2)  is  IBM's  relational  DBMS  for  large  scale  (MVS) 
mainframe  data  base  systems.  "Announced  in  June  1983, 
generally  available  in  April  1985  after  an  intensive 
"field  test"  program,  and  recently  enhanced  (release  2, 
Feb.  1986)  with  subtle  but  important  performance  improve- 
ments. DB2  is  a  new  product,  very  new.  As  of  fourth 
quarter  1986  it  had  approximately  450  users."   [16] 

"ADR's  Datacom/DB  was  first  introduced  in  1974.  It 
had  approximately  1200  customers  as  of  fourth  quarter 
1986."    [15] 


Figure   2.0  provides  a  quick  comparison  of   the   two 
DBMS  product  families: 
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Figure  2.0   Quick  Comparison  of  Features 
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Networking  Facility  SNA      SNA,  DNET 

Transaction  Proc.       CICS,  TSO      CICS,  Datacora-DC, 
Facility  Roscoe 


*  Quasi-relational  means  that  many  relational  algebra  op- 
erations are  provided,  but  not  enough  for  the  relational 
algebra  to  be  complete. 

Figure  2.0   Quick  Comparison  of  Features 


Below  is  a  brief  description  of  several  products 
from  each  DBMS  family.  The  description  will  be  organized 
in  the  following  general  categories: 


ADR  product  descriptions: 

ADR  Data  Base/Data  Communications 

1 .  Datacom/DB 

ADR/Datacom/DB  is  a  relational  database  management  system 
designed  for  on-line  and  batch  applications  first  in- 
stalled in  1974.  It  services  concurrent  record-at-a-time 
and  set-at-a-time  data  manipulation  requests  with  compre- 
hensive security  and  integrity  protection,  utilizing  a 
hi-speed  directory  of  active  definitions,  a  unique,  com- 
pound relational  index  that  directs  the  location  of  data, 
and  an  intelligent  access  plan  optimizer.  It  is  avail- 
able for  both  OS  and  DOS  environments. 

2 .  Data  Designer 

Data  Designer  is  an  interactive  data  base  design  tool 
that  automates  and  simplifies  data  base  design. 
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3.  Datacora/DC 

Datacom/DC  is  a  reentrant,  multi-tasking,  multi-threaded 
TP  monitor  which  controls  programs  and  terminals  for 
on-line  data  base  applications. 

4.  D-Net  and  /D-DDB 

D-Net  and  D-DDB  support  distributed  database  processing 
and  permit  data  to  be  shared  transparently  across 
multiple  computer  systems  in  a  network.  D-DDB  manages 
data  updating  across  nodes,  and  supports  replicated  and 
partitioned  databases.  D-Net  provides  the  connection  and 
transportation  services. 

ADR  Resource  Control : 

5.  Librarian 

Librarian  is  a  source  program  management  system  for  pro- 
gramming, systems,  and  operations  personnel  and  managers. 

6.  Datadictionary 

Datadictionary  is  the  central  control  and  resource  man- 
ager for  the  ADR/Datacom  product  line.  It  is  integrated 
and  active,  managing  an  organization's  entire  information 
resource,  ensuring  consistency  of  all  definitions  and  re- 
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lationships . 


ADR  On-line  Program  Development 

7 .  Roscoe 

Roscoe  is  an  on-line  program  development  and  maintenance 
system  for  OS  environments. 

8.  Vollie 

Vollie  is  an  on-line  program  development  and  maintenance 
system   for  DOS/VS(E)  environments. 

ADR  Application  Development 

9.  Ideal 

Ideal  is  a  sophisticated,  fourth-generation  application 
development  system  suitable  for  a  broad  breadth  of 
on-line  and  batch  applications.  It  combines  a  very 
high-level,  structured  language  with  a  screen  painter,  a 
report  writer  and  change  management,  prototyping,  and 
testing  facilities  into  a  workstation  environment. 

10.  DE-II 

An  on-line  data  collection  and  validation  facility  with 
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generalized  and  user-defined  formatted  screens. 

ADR  Advanced  Programs  and  Languages 

11.  MetaCOBOL 

MetaCOBOL  is  a  Cobol  language  pre-compiler  that  supports 
Cobol  standards,  structured  programming,  and  higher-level 
language  extensions  for  DB/DC  applications. 

12.  ADR/DL 

ADR/DL  supports  the  development  and  enhancement  of  Cobol 
applications  through  interactive  programming  facilities, 
a  high-level,  structured  language  consistent  with  Ideal, 
and  a  batch  Cobol  generator.  ADR/DL  operates  with 
ADR/ROSCOE  and  ADR/Vollie,  with  plans  to  support  IBM's 
TSO/ISPF.  ADR/DL  is  a  high-level  extension  to  the  Cobol 
language  designed  especially  for  data  base  and  data  com- 
munications applications. 

ADR  Query  and  Reporting 

13.  Datareporter 

Datareporter  is  an  information  retrieval  and  reporting 
system  for  generating  management  information  reports  from 
centralized  files. 
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14.  Dataquery 

Dataquery  supports  ad  hoc  on-line  and  batch  inquiry  and 
reporting.  Field  value  security  and  user-level  process- 
ing limits  allow  a  wide  audience  of  users  to  safely  and 
directly  reference  the  same  set  of  production  data  for 
decision  making.  Other  features  include  updating,  graph- 
ics, multilingual  support,  expert  and  novice  modes,  and 
an  on-line  tutorial.  Dataquery  is  an  English-language, 
relational  query  system  for  providing  immediate  access 
to  information. 

ADR  Office  Automation,  Decision  Support,  Documentation 

15.  Empire 

Empire  is  a  decision  support  system  with  integrated  color 
graphics  and  statistics  form  business  analysis  and  plan- 
ning. 

16.  ETC 

ETC  is  an  interactive  word  processing  system  for  auto- 
mated preparation,  composition,  and  maintenance  of  tex- 
tual material . 
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17.  eMAIL 

eMAIL  is  an  interactive  electronic  mail  system  for  send- 
ing, receiving,  storing,  and  managing  correspondence 
quickly  and  easily. 

18.  ASC 

ASC  is  a  system  to  automatically  produce  documentation 
for  system  and  application-level  information. 

19.  Autoflow  II 

Autoflow  II  is  an  advanced  system  development  tool  which 
provides  automatic  program  documentation  and  analysis. 

ADR  Operational  Performance 

20.  LOOK 

LOOK  is  a  real-time  performance  measurement  system  for 
improving  performance  and  throughput.  Look/Datacom  per- 
mits the  comprehensive  performance  management  in 
database-oriented  shops.  In  addition  to  dynamically 
analyzing  activity  levels,  resource  utilization,  and  re- 
sponse times  of  Datacom/DB,  Look  also  determines  the  load 
and  utilization  of  the  entire  processor,  including  CICS, 
batch,  R0SC0E,  the  operating  system,  and  the  hardware. 
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ADR  Transparency 

21.  ADR's  migration  software  automates  the  process  of 
porting  data  from  older  technologies  (VSAM,  DL/1,  Total) 
to  a  relational  environment,  without  the  need  to  convert, 
recompile,  or  relink  existing  applications.  Numerous 
options  are  available  in  the  new  relational  environment 
to  productively  harness  the  information,  manage  the 
operation,  and  introduce  change,  particularly  when  the 
applications  run  as  fast  or  faster  than  before. 
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DB2  product  descriptions: 

DB2  Data  Base/Data  Communications 

1.  Database  2  (DB2) 

A  large-system  MVS  relational  DBMS,  first  released  in 
1983.  It  can  be  installed  with  the  IMS/VS/DB 
hierarchical  system  or  configured  as  a  stand-alone  DBMS. 
The  DB2  system  employes  the  SQL  (Structured  Query 
Language)  as  its  host  data  base  language,  and  is 
compatible,  to  some  degrees,  with  the  SQL/DS  relational 
system  designed  for  use  the  DOS/VS  environment. 

DB2  Query  and  reporting 

2.  Query  Management  Facility  (QMF) 

QMF  provides  interactive  data  base  facilities  to  users 
with  little  of  no  technical  background.  It  operates 
against  SQL/DS  data  under  VM  as  well  as  against  DB2  under 
MVS.  Data  definition  functions  are  provided  through  SQL. 
Features  include  ad  hoc  query  in  SQL  or  QBE  (query  by 
example)  languages.  Report  preparation  consists  of 
relation  of  data  for  graphic  presentation,  defining  and 
executing  a  procedure  consisting  of  a  series  of 
query/report  functions. 
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DB2  Application  Development 

3.  Cross     System    Product/Application    Development 
(CSP/AD)  and  Cross  System  Product/Application  Execution 
(CSP/AE) 

With  CSP/AD  and  CSP/AE,  programming  staff  can  completely 
define,  test,  generate,  and  execute  application  programs. 
These  productivity  tools  support  multiple  development  and 
production  environments. 

4.  Data  Base  Edit  Facility  (DBEDIT) 

DBEDIT  helps  you  perform  data  base  operations  without  re- 
quiring you  to  know  SQL  or  data  base  structure.  You  can 
insert,  delete,  update,  or  select  information  from  a  data 
base.  You  can,  in  short,  perform  all  the  data  manipula- 
tion tasks  for  which  you  would  otherwise  need  to  know 
SQL. 

DB2  Data  Migration,  Product  Interfacing 

5.  CSP-DB2  Interface 

DB2  offers  the  powerful  data  manipulation  capabilities  of 
SQL.  The  Cross  System  Product  offers  the  ease-of-use 
features  of  high-level  languages.  The  CSP-DB2  Interface 
gives  you  both.   The  CSP-DB2  Interface  is  a  PL/1  program 
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that   allows  Cross  System  Product  applications   to   issue 
SQL  statements  against  DB2  tables. 


6.  Data  Base  Migration  Aid  Utility 

Assists  the  DB2  system  of  DBA  in  migrating  data  and  data 
descriptions  between  DB2  systems.  Data  descriptors  can 
also  be  redefined  on  an  existing  DB2  subsystem.  The 
program  is  a  set  of  nine  functions  and  requires 
authorization  to  select  data  from  the  DB2  system  catalog 
tables.   The  Utility  is  menu  driven. 

7.  Data  Extract  (DXT) 

Extracts  data  on  a  periodic  or  one  time  basis.  The  op- 
erational data  can  be  in  a  DL/1  hierarchical  database,  a 
VSAM  file,  a  physical  sequential  file,  or  a  DB2  or 
SQL/DS-VM  relational  database.  This  extracted  data  can 
be  put  into  a  relational  database  for  easy  access  and  re- 
porting by  such  programs  as  Query  Management  Facility 
(QMF)  and  can  be  moved  from  different  subsystems  on  the 
same  processor,  moved  between  subsystems  on  different 
processors,  or  stored  elsewhere,  as  defined  by  the 
installation's  needs.   End  user  dialogs  are  similar  to 
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those  of  QMF,  allowing  users  who  have  no  data  processing 
experience  to  create  extract  requests. 

8.  Data  Dictionary  DB2  Interface 

Expands  the  Dictionary's  (DB/DC)  base  of  general 
functions  to  support  DB2.  It  is  designed  to  accelerate 
DB/DC  system  and  application  development  by  supporting 
these  activities  by  using  Dictionary  information  as  the 
source  for  creating,  modifying,  and/or  deleting  DB2 
objects  and  by  using  the  DB2  catalog  as  the  source  for 
creating  and/or  modifying  Dictionary  subjects.  A  front 
end  dialog  under  ISPF  is  optional. 

DB2  Resource  Control 

9.  DB/DC  Dictionary 

The  DB/DC  dictionary  is  an  IMS  productivity  aid  that  con- 
sists of  five  DL/1  physical  and  five  DL/1  logical  data 
bases  containing  information  about  the  structure  of  data 
in  five  distinct  levels.  The  system  performs  the  follow- 
ing functions:  translates  dictionary  user-input  language 
requests;  executes  update  commands  to  modify,  delete,  and 
add  information  to  the  dictionary  databases;  prepares 
output  reports  in  either  batch  or  on-line  environment; 
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provides  data  definitions  for  Assembler,  Cobol,  or  PL/1 
COPY  or  SBINCLUDE  libraries. 

DB2  Operational  Performance 
10.   DB2  Performance  Monitor  (DB2PM) 

Designed  to  provide  DP  managers,  system  administrators, 
database  administrators,  and  system  programmers  with  es- 
sential information  addressing  the  performance  if  DB2 
data  base  systems.  With  DBSPM  you  can  obtain  reports 
providing  both  system-wide  and  application-related 
information  showing  in  varying  levels  of  detail,  DB2  per- 
formance characteristics  during  a  given  interval. 


2-16 


Here  is  a  brief  list  of  products  in  each  DBMS  family  and 
prices  as  of  July,  1986.  Figure  2.1  shows  pricing  infor- 
mation for  a  typical  ADR  package  with  the  following  con- 
figuration: 

Datacom/DB  Kernel 

Datadictionary 

Datareporter 

DataQuery 

Ideal 

Package  price:     Initial  charge:    $288,300 
Annual  charge:     $  42,546 


Figure  2.1    ADR  Package  Price,  Typical  Configuration 
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Figure  2.2  shows  prices  for  selected  ADR  products. 


Datacora/DB  Kernel  DB 

Datadictionary  DD 

Datareporter  DR 
Options : 

Dataquery  DQ 

Ideal  (4GL)  ID 

VSAM  Transparency  VT 

DL/1  Transparency  Di 

Datasecure  DS 

Datadesigner  DG 

D-Net  DN 

DE-II  (data  entry)  DE 


License 

Annua 1 

Purchase 

Maint. 

(S) 

($) 

116,000 

16,240 

39,600 

5,545 

2,184 

34 

800 

4 

872 

97 

900 

13 

705 

25 

300 

3 

542 

40 

000 

5 

600 

14 

100 

1 

974 

50 

600 

7 

084 

41 

300 

5 

780 

24 

500 

3 

430 

Figure  2.2   ADR  Price  List,  Selected  Products 
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Figure   2.3  shows  prices  for  a  typical  DB2   package   with 
the  following  configuration: 

SQL  (Data  Manipulation/definition  lang.) 

Query  Management  Facility  (QMF) 

DB2  Performance  Reporting  Tool 

Data  Base  Edit 

Data  Dictionary  DB2  Interface 

Package  price:     Initial  charge:    $16,050 
Monthly  charge:    $2,675 
(Annual  charge:   $32,100) 


Figure  2.3   DB2  Package  Price,  Typical  Configuration 
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Figure  2.4  shows  prices  for  selected  DB2  products. 


1.  DB2 

2.  QMF 

3.  DXT 

4.  CSP 

5.  CSP-DB2  Intf 

6.  Edit  Facility 

7.  Mig  Aid  Util 

8.  DD  DB2  Intf 

9.  Perf  Monitor 


1  Time 

Initial 

Monthly 

Charae 

Charge 

Charge 

(S) 

!$) 

($) 

16,050.00 

975.00 
1500.00 

300.00 
1550.00 

4000.00 

1150.00 
350.00 

4000.00 
4000.00 


975.00 


Figure  2.4   DB2  Price  List,  Selected  Products 


Figure  2.5  shows  abbreviations  for  DB2  products  which 
were  used  in  Figure  2.4. 


DB2  -  Database  2 

QMF  -  Query  Management 

DXT  -  Data  Extract 

CSP  -  Cross  System  Product 

CSP-DB2  Intf  -  Cross  System  Product  DB2  Interface 

Edit  Facility  -  DB2  Edit  Facility 

Mig  Aid  Util  -   Migration  Aid  Utility 

DD  DB2  Intf  -   Data  Dictionary  DB2  Interface 

Perf  Monitor  -   Performance  Monitor 


Figure  2.5   DB2  Product  Abbreviations 
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There  are  many  features  about  the  databases  and 
other  related  products  which  are  different.  Below  is  a 
more  detailed  discussion  about  each  DBMS  and  selected 
comparisons.  But  first,  a  brief  overview  of  each  DBMS 
system. 


DB2  product  system  overview: 

DB2  is  a  large-system  MVS  relational  DBMS.  It  was 
first  introduced  in  1983  as  part  of  IBM's  dual  data  base 
strategy.  DB2  was  to  be  used  as  an  ad  hoc  query  and  data 
analysis  tool,  while  IMS  was  to  serve  as  the  production 
DBMS .  This  plan  has  been  changing  as  DB2  '  s  performance 
has  continually  improved. 

DB2  can  be  installed  with  the  IMS/VS/DB  hierarchical 
system  or  configured  as  a  stand-alone  DBMS.  The  DB2 
system  employs  SQL  (Structured  Query  Language)  as  its 
host  data  base  language,  and  is  compatible,  to  some 
degrees,  with  the  SQL/DS  relational  system  designed  for 
use  with  the  DOS/VS  environment.  DB2  provides  the 
following  integral  database  facilities:   relational  file 
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structure,  views,  table  space,  SQL,  data  space  manage- 
ment, user  interface,  monitoring  and  accounting,  security 
and  authorization,  and  data  set  protection.  All  data  in 
a  DB2  data  base  is  stored  in  VSAM  entry  sequenced  data 
sets  (EDSD),  which  can  be  defined  and  maintained  by  the 
user  or  automatically  maintained  by  DB2  .  DB2  supports  a 
relational  data  model.  DB2's  data  base  can  be  described 
as  a  collection  of  tables.  Data  is  defined  in  terms  of 
tables  and  accessed  through  operations  on  tables.  Data 
definition,  retrieval,  manipulation,  and  control  op- 
erations are  supported  by  SQL.  SQL  is  a  high-level  data 
language  available  to  users  through  an  interactive  termi- 
nal and  through  applications  written  in  Cobol ,  Fortran, 
PL/1,  Basic,  or  Assembler  language.  DB2  can  be  accessed 
concurrently  by  the  IMS/VS  Data  Communication  Feature,  by 
CICS/OS/VS,  by  TSO  users,  and  by  batch  jobs.  It  operates 
as  an  MVS  subsystem  and  is  designed  to  utilize  the 
System/370  Extended  Architecture  (XA) ,  including  31-bit 
virtual  addressing  and  large  real  storage.  DB2's  archi- 
tecture provides  for  very  large  data  bases  (up  to  64  bil- 
lion bytes  per  table) .  It  is  supported  by  a  comprehen- 
sive set  of  data  base  utilities  that  operate  online, 
including  DXT  and  DB2  Performance  Monitor.   Its  security 
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and  authorization  mechanism  offers  field  content  security 
and  allows  various  levels  of  authority  to  be  delegated  to 
users  as  appropriate. 


ADR  Datacom/DB  product  system  overview: 

"ADR/Datacom/DB  was  originally  marketed  by  a  small 
firm  that  did  not  have  the  marketing  resources  of  a  major 
system  software  house.  ADR  acquired  the  company  and  the 
DBMS  in  late  1978.  Soon  thereafter,  ADR  spent 
considerable  effort  in  redesigning  and  restructuring  the 
architecture  of  the  system,  and  the  growth  in  the  user 
base  since  then  has  been  dramatic.  In  1985  alone,  the 
product  doubled  its  user  base,  and  should  continue  to 
make  significant  inroads  in  the  market  with  its 
flexibility,  ease  of  use,  integration  with  other  popular 
ADR  products,  and  its  recently  introduced  DL/1  Transpar- 
ency option."   [15] 

Datacom/DB  is  a  relational  database  management 
system  designed  for  on-line  and  batch  applications.  Data 
is  stored  in  tables  (also  known  as  logical  relations)  and 
accessed  as  rows  and  columns .  Each  database  has  a 
single,  combined  index  providing  logical  relational 
operations  such  as  select,  project,  and  join.  The  system 
provides  an  interactive  end-user  language  to  support 
direct  user  access,  updating,  analysis  and  reporting. 
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Datacom/DB  programs  use  dataviews  or  logical  views  of 
data  when  accessing  information.  It  provides  program  de- 
velopment, maintenance  and  information  center  support  for 
existing  and  future  applications  through  ADR/Ideal,  a 
fourth  generation  application  development  system  for  new 
applications  and  ADR/DL,  a  comprehensive  Cobol  applica- 
tion generator  for  database  programs  and  a  complete  data 
manipulation  language.  Data  access  is  supported  by  ran- 
dom, sequential  or  index-only  processing.  Data  integrity 
is  maintained  through  such  features  as  concurrent  update 
protection,  exclusive  control  of  data,  automatic  transac- 
tion backout ,  complete  automatic  restart/recovery,  pro- 
gram data  access  security  and  encryption  facilities. 
Datacom/DB  supports  a  multi-user  facility  that  provides 
the  user  with  extended  ability  to  access  databases  con- 
currently from  multiple  partitions.  Accounting  fa- 
cilities for  management  control  are  definable  by  each  in- 
stallation and  its  preferred  detail  level  of 
summarization  point.  The  information  is  stored  in  table 
form,  in  a  system  controlled  Datacom/DB  database.  Sta- 
tistics can  be  accessed  on-line  or  in  batch  with  the  ADR 
tool  set.  The  Datacom/DB  databases  are  defined  through 
Datadictionary,  a  central  resource  manager  for  the  infor- 
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mation  environment.  The  dictionary  provides  facilities 
for  definition,  design,  reporting,  auditing  and  control. 
ADR's  migration  software  tools,  the  VSAM  or  DL/1  Trans- 
parencies, migrate  current  data  written  for  VSAM  or  DL/1 
to  Datacom/DB  with  no  modifications  to  existing  applica- 
tion programs. 


Below  is  more  detailed  information  about  selected  areas 
for  each  DBMS : 

1 .  Operating  environment 

DB2 :  Minimum  memory  2.5  -  5  MB 

ADR:  Minimum  memory  1    -  2 . 5  MB 

Computer/Operating  Systems  supported: 

ADR:  IBM  system/370,  3000,  4000  and  compatible 
computers.  SSX/VSE,  DOS/VS,  D0S,VSE,  0S/VS1 , 
0S/VS2(SVS),  0S/VS2(MVS),  MVS/XA,  AND  VM/CMS. 

DB2:  Any  IBM  or  compatible  processor  supported  by 
MVS/SP,  MVS/XA. 
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ADR:  can  be  accessed  by  Datacora/DC  (ADR's  reentrant, 
multi-tasking,  multi-threaded  TP  monitor,  by  CICS  and  by 
other  telecommunications  monitors. 

DB2 :  can  be  accessed  concurrently  by  IMS/VS  Data 
Communication  Feature,  by  CICS/OS/VS,  by  TSO  users,  and 
by  batch  jobs. 

DB2  was  designed  to  exploit  the  31-bit  addressing 
architecture  of  MVS/XA,  but  it  can  also  run  on  MVS/370, 
which  uses  24-bit  addressing. 


2.   File  structure 

All   data   in   a  DB2  data  base  is  stored   in  VSAM   entry 

sequenced   data   sets  (EDSD),   which  can  be   defined   and 

maintained   by   the  user  or  automatically  maintained   by 

DB2. 


3.   Views  of  data 

The  general  concept  of  a  DB2  and  ADR  view  of  data  are  the 

same,  a  view  allows  you  to  present  a  smaller,  simpler 
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version  of  a  table  upon  which  it  is  based.  It  permits 
you  to  authorize  the  use  of  a  view  to  only  specified  us- 
ers, and  not  every  field  in  the  entire  table.  A  view 
only  needs  to  contain  fields  to  meet  the  needs  of  a 
user/program  and  not  contain  any  unnecessary  fields  to 
complicate  or  confuse  things. 

However,  a  DB2  view  can  be  created  dynamically  (does  not 
need  to  previously  exist)  by  a  program  if  the  program  is 
authorized  to  access  all  fields  making  up  the  new  view. 
An  ADR  dataview  cannot  be  dynamically  produced.  A  DB2 
view  also  very  importantly  can  contain  fields  from  more 
than  one  table  (i.e.  join  2  or  more  tables),  from  other 
views  or  from  a  combination  of  views  and  tables.  Views 
are  used  just  like  tables  in  SQL  data  manipulation 
statements.  An  ADR  dataview  currently  can  only  contain 
fields  from  one  table,  not  fields  from  multiple  tables. 
A  dataview  processor  has  been  promised  for  a  future 
release  which  will  remedy  this  situation. 


4.  Table  space/Data  space  management 

DB2  Table  Space  is  user-defined  to  hold  the  data  base 
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tables.  Each  table  space  is  divided  into  equal-sized 
units,  called  pages,  which  contain  table  data.  A  table 
space  consists  of  one  to  64  VSAM  entry  sequenced  data 
sets  (ESDS)  and  contain  up  to  64G  bytes  of  information. 

Table  space  is  of  two  types,  simple  and  partitioned.  A 
partitioned  table  space  holds  exactly  one  table.  The 
table  space  is  divided  into  partitions,  and  each 
partition  is  stored  in  one  VSAM  ESDS.  The  partitions  are 
defined  as  ranges  of  an  index  based  on  one  or  multiple 
columns.  Through  partitioned  table  spaces  very  large 
tables  can  be  split  into  manageable  units;  partitions  are 
independent  of  each  other  and  can  be  reorganized  and 
recovered  individually. 

In  addition,  partitioned  table  spaces  can  be  assigned  to 
different  storage  groups,  each  of  which  may  be  assigned 
to  a  different  device  type.  This  assignment  scheme 
allows  installations  to  store  active  data  on  faster 
devices  than  those  on  which  history  data  is  stored. 
Table  spaces  which  are  not  partitioned  are  referred  to  as 
"simple"  table  spaces.  A  simple  table  space  can  hold  one 
or  more  tables. 
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Table  spaces  are  physically  divided  into  storage  units 
called  pages.  Each  page  holds  one  or  more  rows  of  a 
table  (or  multiple  tables  for  simple  table  spaces) .  Two 
page  sizes  are  available,  4K  and  32K  bytes.  The  larger 
page  size  must  be  chosen  if  rows  with  a  length  of  more 
than  4K  bytes  exist  in  a  table. 

DB2  uses  VSAM  for  DASD  space  management  and  data  set 
cataloging.  However,  after  the  data  sets  are  created, 
they  are  formatted  and  used  by  DB2  and  cannot  be 
processed  by  VSAM  services. 

At  the  top  of  ADR  entity  model  are  two  related  entities. 
Database  and  Area.  These  entities  describe  the  data  base 
and  area  into  which  files  (tables)  are  organized.  The 
Area,  hierarchically,  is  the  ADR  counterpart  to  the  DB2 
Table  Space.  An  Area  can  have  one  or  more  Datacom/DB 
files  defined  to  it.  Typically,  only  one  file  is  related 
to  one  area.  If  more  than  one  file  was  related  to  an 
Area,  the  data  would  be  cc-located,  or  co-mingled.  If 
two  files  are  nearly  always  accessed  together,  the  number 
of  I/Os  could  be  cut  down  by  physically  locating  the  data 
together.   These  two  files  should  probably  be  physically 
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together  in  the  same  Area.   The  records  in  the  Area  would 
resemble: 

Record  A/Record  B/Record  A/Record  B/Record  A/... 


ADR  Space  management  option  information  for  an  Area's 
files  is  also  defined  at  the  Area  level  within 
Datadictionary  when  the  Area  is  defined.  Options  0-3  can 
be  selected  to  aid  in  the  management  of  space  within  the 
files.  Option  selection  controls  things  such  as  the 
reclamation  of  space  after  a  record  has  been  marked  for 
deletion,  whether  it  is  important  to  maintain  the  native 
sequence  in  which  records  were  added  to  the  file  or  not, 
whether  it  is  permissible  or  not  to  wrap-around  to  the 
beginning  of  the  file  when  an  end  of  file  is  detected. 

ADR's  CXX  (control)  File  contains  data  base  control  in- 
formation. It  consists  of  the  base  segment  describing 
data  base  characteristics,  followed  by  area  and  file  seg- 
ments that  describe  the  characteristics  of  each  file, 
including  keys  and  data  elements.  The  CXX  is  constructed 
automatically  from  definitions  in  Datadictionary. 
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5.  Data  manipulation  language 

Users  of  both  DB2  and  ADR  products  do  not  have  to 
navigate  their  way  to  data.  When  the  requested  data  is 
located,  DB2  and  ADR  returns,  updates  or  deletes  the 
entire  collection  (termed  set-at-a-time  processing)  of 
data  that  met  the  conditions  specified  by  the  user. 

SQL,  Structured  Query  Language  is  used  in  DB2  for  data 
manipulation.  The  language  includes  statements  for  re- 
trieval, replacement,  insertion,  and  deletion  of   data. 

SQL  statements  may  be  issued  interactively  from  a 
terminal  and  the  results  may  be  browsed.  The  interactive 
SQL   facility   is  available  to   authorized   TSO   SPF/ISPF 


SQL  statements  may  be  embedded  in  application  programs 
written  in  Cobol,  PL/1,  Fortran,  Basic,  or  Assembler. 

SQL  also  provides  Data  Definition  facilities  for 
creating,  changing,  and  deleting  all  DB2  objects. 
Objects  are  storage  groups,  table  spaces,  tables, 
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indexes,  and  views.  A  unique  advantage  of  SQL  is  that 
these  Data  Definition  statements  may  be  used  in  a  normal 
user  session  and  mixed  together  with  other  types  of 
statements,  such  as  data  manipulation  statements.  It  is 
not  necessary  to  stop  DB2  or  to  invoke  special  utility 
programs  to  create  a  table  for  storing  and  manipulating 
some  temporary  result  and  drop  the  table  when  it  is  no 
longer  needed. 


ADR  does  not  have  a  direct  counterpart  to  DB2's  SQL.  ADR 
does  not  have  one  set  method  of  manipulating  data,  but 
several  products  which  provide  for  manipulation  of  data. 
First  available  was  data  base  access  by  writing  a 
traditional  third  generation  language  and  embedding  it 
with  a  low-level  CALL  interface  (ie.  CALL  DBENTRY 
parameters).  This  is  similar  to  DB2's  SQL-embedded  third 
language  support.  ADR's  Ideal  (standing  for  Interactive 
Development  Environment  for  an  Application's  Life-cycle) 
is  an  alternative  data  manipulation  language  (4GL)  plus 
an  interactive  tool  for  the  design,  development,  and 
execution  of  applications  in  an  online  environment. 
Ideal  lets  the  user  access  and  update  the  data  base  with 
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an  easy-to-use  and  very  high-level  set  of  statements. 

Another  ADR  data  manipulation  product  is  ADR/DL.  DL  is 
an  interactive,  high-level  application  development  and 
maintenance  Cobol  workstation.  With  DL,  programmers  can 
access  and  manipulate  Datacom/DB  data  directly  from  Cobol 
applications  without  coding  physical  interfaces  to  the 
data  base.  DL  has  both  Cobol-like  commands  and  4GL-like 
functions . 

ADR  announced  in  the  first  quarter  of  1987  that  it  will 
support  a  subset  of  SQL  data  manipulation  commands.  No 
further  information  is  available  from  ADR  at  this  time  on 
SQL  support.  ADR  has  recognized  SQL  as  the  recognized 
industry  standard  data  manipulation  language  and  the 
value  of  supporting  that  standard.  ADR  will  introduce 
SQL  support  with  a  selected  subset  and  is  expected  to 
expand  over  time  the  set  of  SQL  commands  it  will  support. 


6.  Indexes 

DB2   and  ADR  indexes  are  very  much  alike.    Both   have   a 

B-tree  index  structure.   Each  level  of  the  index  contains 
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a  pointer  to  a  block  of  pointers  at  the  next  lower  level, 
except  the  last  level,  which  contains  pointers  to  actual 
data  records.  Programs  or  users  accessing  data  never  ex- 
plicitly specify  keys  or  indexes,  indexes  are  only  used 
by  the  DBMS.  Programs  specify  field  names.  The  DBMS 
maps  the  field  or  fields  back  to  keys. 

DB2  has  one  index  for  each  key.  ADR  has  1  index  for  all 
keys  of  each  database.  Both  have  cluster  keys  or 
indexes.  A  cluster  index  or  key  determines  the  physical 
order  in  which  rows  are  stored.  A  Cluster  key  or  index 
is  used  to  store  data  the  way  it  would  be  most  frequently 
accessed,  for  example,  employee  number,  account  number, 
or  alphabetically  by  name.  Both  ADR  and  DB2  provide  for 
unique  and  nonunique  indexes/keys. 

7.  Program  preparation 

A  DB2  application  program  issuing  SQL  calls  must  be 
precompiled  using  the  DB2  precompiler  to  create  a  Data 
Base  Request  Module  (DBRM) .  The  DBRM  is  the  input  to  the 
DB2  BIND  process  which  produces  a  DB2  application  plan 
that  contains  an  optimized  access  path  for  each  SQL 
statement.   Besides  the  access  path,  the  plan  also 
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contains  the  tables  to  be  accessed  and  the  appropriate 
locking  information.  The  application  program  must  be 
compiled  and  then  link-edited. 

After  programs  are  written,  four  steps  must  be  performed 
before  they  can  be  run. 

Precompilation:  to  check  SQL  syntax,  produce  a  modified 
source  program,  and  produce  a  data  base  request  module 
(DBRM) ,  an  intermediate  form  of  an  SQL  statement. 

Compilation:  to  translate  the  modified  source  program 
using  wither  a  Cobol ,  PL/1,  or  Fortran  compiler  or  an  as- 
sembler. 

Bind:  to  process  the  DBRM  to  produce  an  application 
plan,  the  control  structure  representing  one  or  more  SQL 
statements. 

Link-edit:   to  produce  the  final  object  module. 

The  compiling  and  link-editing  steps  are  the  same  in 
DB2  as  they  are  in  any  other  programming  process.   The 


precompile  and  bind,  however,  are  unique  to  DB2 . 

ADR  programs  can  be  written  in  several  different 
languages,  ADR/DL  (an  extension  to  Cobol),  Ideal  (ADR's 
4GL)  or  Cobol,  PL/1  or  Assembler  with  embedded  DBENTRY 
calls.  When  the  program  is  successfully  compiled,  the 
program  preparation  process  is  finished.  Access  paths  to 
data  are  determined  dynamically  by  CBS  (Compound  Boolean 
Selection) ,  which  is  discussed  below. 

8.  Path  Selection  to  data. 

When  all  SQL  statements  are  found  to  be  correct  in  a 
program,  the  binder  is  authorized  to  access  the  data,  DB2 
builds  and  stores  an  application  plan  that  contains 
information  about  both  the  program  and  the  data  the 
program  uses . 

The  major  advantage  of  the  precompilation  and  bind 
process  is  that  it  removes  operations  that  can  be  done 
once  from  the  program's  normal  processing.  When  the 
program  runs,  SQL  statements  are  not  translated  or 
semantically  checked.  Access  paths  are  not  selected. 
All  that  processing  happens  only  once,  before  the  program 


If  the  data  definitions  or  indexes  that  an  application 
plan  uses  should  change,  rebinding  occurs  automatically. 
For  example,  suppose  an  index  on  a  table  used  in  an 
application  plan  were  dropped.  If  the  program  using  the 
plan  were  run,  DB2  would  automatically  invoke  the  bind 
process  to  rebuild  an  application  plan  that  did  not  use 
the  index  that  had  been  dropped. 

ADR's  CBS  (Compound  Boolean  Selection)  facility  provides 
full  relational  selection  and  ordering  capabilities.  CBS 
is  totally  key  insensitive  from  the  programmer  viewpoint; 
selection  and  ordering  can  be  specified  for  any  fields  in 
the  for  any  fields  in  the  table  with  full  data  typing 
(including  floating  point).  CBS  dynamically  chooses  the 
most  efficient  index  path  to  satisfy  the  access  request. 
If  a  key  is  modified,  typically  no  program  changes  need 
to  be  made,  CBS  will  continue  to  dynamically  select  the 
optimal  path  to  data. 


Chapter  3 


Mini-application  system  -  DB2  vs  Datacom/DB 


3.0  Introduction 

In  order  to  further  study  how  DB2  and  ADR  products 
compare,  a  miniature  application  system  was  constructed 
in  both  environments.  This  section  details  the  work 
involved  in  taking  an  existing  small  application  system 
running  in  a  DB2  environment  and  duplicating  it  as 
closely  as  possible  in  an  ADR  environment. 

The  mini-system  consisted  of  programs  at  both 
extremes:  an  interactive  on-line  program  and  a  batch 
report  program  and  the  necessary  database,  files,  data 
views  and  other  needed  entities.  This  mini-system  is 
part  of  a  sample  application  system  provided  by  IBM  as 
part  of  the  DB2  software  (see  Appendix  B) .  It  was  de- 
cided to  use  this  system  provided  by  IBM  instead  of  a 
system  written  in-house  at  the  DB2  site  because  the  DB2 
site's  personnels'  programming  skills  would  not  be  a  fac 
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tor  and  more  importantly,   the  sensitivity  of  any  of   the 
site's  data  would  be  compromised  in  any  way. 

The  purpose  of  the  mini-application  system  was  to  aid 
the  author  in  demonstrating  future  comparisons  between 
DB2  and  ADR  DBMS  software. 
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The  batch  program  produces  a  report  which  is  several 
pages  of  telephone  directory  listings.  Each  telephone 
list  is  based  on  card  image  input  (see  Figure  3.0). 

A  line  number  bar  has  been  provided  above  the  input 
for  the  reader's  convenience. 


0         12  3  4  5 

1234567890123456789012345678901234567890123456789012  34567 

L* 


Ljoas 

LSSS0N 

LSMITH 

LBR0WN 

ALAN 

LBR0WN 

DAVID 

U 

0002304265 

Figure  3.0   Batch  Program  Card  Image  Input 


'LBROWN  ALAN',  is  the  fifth  card  image 

in  Figure  3.0.  The  '  L '  in  the  first  byte  indicates  the 
action  -  ' L '  =  list,  a  'U'  in  the  last  card  image  means 
update.  The  above  example  input  indicates  for  the  pro- 
gram to  produce  a  telephone  directory  listing  of  all 
records  (using  the  EMPLOYEE  and  DEPARTMENT  Tables)  with  a 
last  name  of  BROWN  and  first  name  of  ALAN.  If  no  match 
was  found,  an  appropriate  message  was  produced  on  the  re- 
port . 

The  mini-system's  on-line  program  is  used  to  main- 
tain the  database  (ie.  add,  change,  delete,  and  display 
an  index).    Figure  3.1  shows  the  Employee  Index  screen. 
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Figure  3.1   On-line  Program  Employee  Index  Screen 


The  best  way  to  get  a  comparison  of  DB2  and  ADR  DBMS 
products  would  have  been  to  have  both  DB2  and  Datacom/DB 
running  at  the  same  site,  physically  on  the  same 
equipment.  Since  it  was  not  possible  to  find  one  data 
processing  shop  with  both  ADR's  Datacom/DB  and  IBM's  DB2, 
the  product  comparison  was  conducted  at  the  two  sites. 
Care  was  given  to  ensure  that  the  hardware  and  operating 
systems  at  the  two  sites  were  as  similar  as  possible. 
Figure  3.2  compares  the  pertinent  hardware  and  software 
at  the  two  sites.  Note  that  both  sites  have  the  same  CPU 
and  operating  system. 

The  ADR  Datacom/DB  site  selected  was  Johnson  County, 
Kansas  in  Olathe,  Kansas.  The  IBM  DB2  site  selected  was 
Forrest  T.  Jones,  a  Kansas  City,  Missouri  insurance  com- 
pany. 


3-6 


Johnson  County 
(ADR) 

Hardware : 

CPU:  IBM  4381 

Memory  size:  16  MEG 

Software: 

Operating  system:  OS  MVS/XA 
TP  Monitor:  VTAM 

Pertinent  IBM  CICS 

Products : 


ADR  Products:     Datacom/DB 

Data  Dictionary 

Ideal 

Data  Query 

Data  Reporter 

V3AM  Transparency 

Inter  Products  Components 

File  storage  DASD :  IBM  3380's 


Forrest  T.  Jones 
(DB2) 

IBM  4381 
16  MEG 

OS  MVS/XA 

SNA/VTAM 

CICS 

IMS  DL/1 

IMS  DB/DC 

DB2 

DXT 

QMF 

Librarian 


IBM  3380's 


Figure  3.2   Profiles  of  Test  Sites 
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Now,  more  about  the  mini-system.  First,  the 
database  configuration  documentation  supplied  by  the  DB2 
site  is  given  in  Figure  3.3,  which  shows  the  relationship 
between  storage  group,  database,  table  space,  and  table. 
Figure  3.4,  shows  the  Department  and  Employee  table  lay- 
outs (each  is  enclosed  in  a  box) .  Characteristics  of 
fields  in  each  table  are  shows.  Figure  3.5,  shows  In- 
dexes (keys)  for  the  Department  and  Employee  tables. 
Fields  making  up  each  key  are  shown.  Figure  3.6  shows 
the  Phone  View  (enclosed  in  a  box),  which  was  used  in  the 
DB2  programs.  Later  in  this  chapter,  entities  shown  in 
these  figures  are  discussed  in  detail. 
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Storage  group: 


DSN8G200 


Data  bases: 


0SN802AP 
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data 


Table 
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Department 

Table 


DSN8S2EM 
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Table 


Separated 

spaces  for 

other 
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Common  for 
Programming 
Tables 


Figure  3.3   DB2  Test  Data  Base  Configuration 


3-9 


!>5N82 
DSN82 
&SN82 
1  m? 
I  N82 
i  .N82 
N82 
!  S82 


05*82 
i>SNB2 
tsN82 
&SN82_ 


I  NAME 

TACTYPE 

IACTYPE 

1ACTVPE 

TCONA 

rCONA 

JCONA 

TCONA 

TCONA 


CNAME 
ACT nt sn 

ACTKWO 
AC!  NO 
CONVID 
i ASIHSC 

t asitos 

I  AS  I  cose 
LAST  SCR 


COLNO  COLTYPE   LENGTH   SCALE  NULLS 


VARCHAR 

20 

CHAR 

6 

SMALL  INT 

2 

CHAR 

16 

LONCVAR 

351U 

CHAR 

25U 

CHAR 

25U 

CHAR 

8 

N82 

■NS2 
■  N82 

0SN82 
H5N82 
D5N82 
05N82 
D5N82 
DSN82 
BSN82 
05N82 
t>SH&2 
&5N82 
PS>^82 


IDEPT 
1DEPT 
TOEPT 
TDEPT 


IdspIXT 

1DSPTXT 

IDSPtXT 


ADMW1EPI 
DEPTNAMF 

(il.Pl  NO 
MCRNO 


DspinoCx 
DSPLINE 
LINE NO 


CHAR 
VARCHAR 
CHAR 
CHAR 


1  CHAR 
3   CHAR 

2  CHAR 


TEHPL 
TFMPL 
TEMPL 
TEMPL 
IEHPL 
TEMPL 
TEMPL 
TEMPL 
TEMPL 
TEMPL 
TEMPL 
UHPL 


PRTIIDaIF. 

EOUCLVL 

EMPNO 

TIRSTNME 

H1REDATE 

JOBCOOE 

LAS! NAME 

HIDINIT 

PHONE NO 

SALARY 

WORKDEPT 


>'>N82 
>UHOZ 

■  N82 

i:\H9Z 
1111(82 

■:-.N82 

!  N82 
:;N82 

"S»(82 


■■N82 
'■:-H82 
:  '(92 
:N82 
s«82 
:  U32 
KH82 

:.')82 

'  :i82 
'  '182 


TEMPRAC 

TEMPRAC 

TEMPRAC 

TEMPRAC 

TEMPRAC 

TEMPRAC 

TOPTVAL 

TOPTVAL 

TOPTVAL 

TOPTVAL 

TOPTVAL 

TOPTVAL 

TOPTVAL 

TOPTVAL 

TOPTVAL 

TOPTVAL 

TOPTVAL 

TPROJ 

TPROJ 

TPROJ 

TPROJ 

TPROJ 

TPROJ 

TPROJ 

TPROJ 


DECIMAL 

9  SMALL  I  NT 

T  CHAR 

2  VARCHAR 

7  DECIMAL 

8  DECIMAL 
y  VARCHAR 

3  CHAR 
6  CHAR 

12  DECIMAL 

10  CHAR 

?  CHAR 


ACT  NO 

EMENOAIE 

EMPNO 

EMPTIME 

EMSTOATE 

PRO J NO 

ACTION 

DSP  INDEX 

HEADTXT 

HELPTXT 

INFOTXT 

MAJSYS 

OBJECT 

PFKTXT 

SCRTYPE 

SELTXT 

SRCHCRIT 

DEPTNO 

MAJ  PROJ 

PRENDATE 

PROJ NAME 

PROJ NO 

PRSTAFF 

PRSTDA7E 

RESPEMP 


SMALL  I  NT 

DECIMAL 

CHAR 

DECIMAL 

DECIMAL 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 

DECIMAL 

VARCHAR 

CHAR 

DECIMAL 

DECIMAL 

CHAR 


Figure  3.4   DB2  Department  and  Employee  Table  Layouts . 
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Figure  3.6   DB2  Phone  View 


The  database  configuration  from  the  DB2  site  has 
been  presented.  The  database,  tables,  indexes,  views  of 
data,  etc.  at  the  DB2  site  were  duplicated  as  closely  as 
possible  at  the  ADR  site.  Below  is  database  configura- 
tion documentation  from  the  ADR  site.  Figure  3.7  shows, 
in  an  indented  format,  the  relationship  between  database, 
area,  file,  record,  key,  element,  and  field.  Figure  3.8 
shows  the  Employee  table  layout  and  keys.  Fields  making 
up  each  table  and  key  are  shown.  Figure  3.9  shows  the 
Department  table  layout  and  keys.  Fields  making  up  each 
table  and  key  are  shown.  Figures  3.10,  3.11,  and  3.12 
show  the  Employee,  Department,  and  Cardin  dataviews  used 
in  the  ADR  programs.  Entities  shown  in  these  figures  are 
discussed  in  detail  later  in  this  chapter. 
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001  F   ENTIRE    MINI-SYSTEM   OEPT  OEPTE 

2         001  P   OEPTNAME.OEPTNO   ELEMENT  0EPT2 

001  P 

001  P 


MINI-SYSTEM   EMI 


009    P    MINI-SYSTEM    EMPLOYEE     TABLE 


MS-EMPLOYE  E.MS-EMPLOYEE-R- 
MS-EMPLOYE E.MS-EMPLOYE  E-K-. 
MS-EMPLOYEE.  MS-EMPLTTEE-R-: 
MS-EMPLOYEE. MS-EMPLOYEE 
MS-EMPLOYEE. MS-EMPLOYE E-2 
MS-EMPLOYEE. BRTHDATE 
MS-EMPLOYEE.EOUCLVL 
MS-EMPLOYEE.  FMP  NO 
MS-EMPLOYEE.FIRSTNME 


»    P    MINI-SYSTEM    EMPLOYEE    RECORO 

OOB    P   MINI     SYSTEM    KEY    |                     EMPNO 

->Q1 

008    P    MINI     SYSTEM    EMPLOYEE    KE    MKOPT 

003 

OOB    P   LASTNAME.F1RSTNME.MI0IN    ENAME 

OOfr 

OOB    P    ENTIRE    HECORO    EMPLOYEE       EMPLE 

008    P                                                                      NAMNO 

OOB    P 

008    P 

00*    P 

OOB    P 

Figure  3.7   ADR  Test  Data  Base  Configuration 
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QAT»CCWDD   0»T*OICTI0N»"» 

INDENTED   REPORT 

COPYBIGHT    OP    A?PLt60    DAT*    QESEARCH.     INCORPORATED 

I 

...    OCCURENCE. 


*S-£MPLOYEfE.PULLHA*E 
MS-EMPLOYEE.MIREOATE 
MS-EMPLOYEE. JOBC00E 
MS-EMPLOYEE. LASTNAME 
US-EMPLOYEE. LI*ENO 
MS-EMPLOYEE. HIDINIT 
US-EMPLOYEE. PKONEHO 
MS-EMPLOYEE. SALARY 
MS-EMPLOYEE. SEK 
MS-EMPLOYEE. WORKOEPT 


S    DESCRIPTION.. 


Figure  3.7   ADR  Test  Data  Base  Configuration 


VIEU  ALL  DISPLAY 
BASE  NAME.  MlMI-SYSTEM-fiB   BASE-ID:   (6     RECORD  NAME:  MS-EMPLOYEE 
KEY  NAME 


MS-EMPLOYEE-K-1 
HS-EMFLOYEE-K-2 


LV  FIELD  NAME       TYPE  LEN  DEC  SiCN  OCC  CL  DESCRIPTIO 


01  LINENO 
01  BRTHDATE 
01  EDUCLVL 
01  EMPNO 
01  F1RSTNME 
01  HIREDATE 
01  JOBCODE 
01  LASTNAME 
01  MIDINIT 
01  PHONENO 
01  SALARY 
01  SEX 
01  UQRKDEPT 
01  END 


VIEU  KEYS  DISPLAY 
BASE  NAME:  MINI-SYS1EM-DB   BASE-ID:   10     RECORD  NAME:  MS-EMPLOYEE 

MS-EMPLOYEE-K-1  KEY  CONSISTS  OF: 

^^NAME TYPE  LEN  DEC  SIGN  OCC  CL  DESCRIPTION 

EMPNO  c~    ~~6  i  5 

MS-EHPLOYEE-K-2  KEY  CONSISTS  OF: 

_!bL^ME       TYPE  LEN  DEC  *ICN  OCC  CL  DESCRIPTION 


Figure  3.8   ADR  Employee  Table  Layout  and  Keys 
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VIEW  ALL  DISPLAY 
BASE  NAME:  MINI-SYSTEM-DB   BASE-ID:   19     RECORD  NAME:  HS-DEPARTMENT 


MS-DEPART-K-1 

MS-OEPART-K-2 
MS-DEPART-K-3 

LV  FIELD  NAME 


01  ADMRDEPT 

01  DEPTNAME 

01  DEPTNQ 

01  MGRNQ 

01  END 


TYPE  LEN  DEC  SIGN  OCC  CL  DESCRIPTIO 


VIEU  KEYS  DISPLAY 
BASENAN.T:  HINI-SYJTEH-DB   B«E-,D:   „    RECORD  NAME,  NJ-DEPARTNENT 
MS-DEPART-K-t  KEY  CONSISTS  OF: 

?"Wt TYPE  LEN  DEC  SIGN  OCC  CL  DESCRIPTION 

MGRNO  c  ?  "I       .,  '■;.-,  j        " 

HJ-DEP«RT-K-2  key  CONJIITI  0F>--.       •"'  •    _ 
no*  ma*    ■■  TYPE  LEW  DEC  SIGN  OCC  CL  description 

ADMRDEPT  C*     3  7  7. 

MS-DEPART-K-3  KEY  CONSISTS  OF: 

FIELp_NAHE TYPE  LEN  DEC  SIGN  OCC  CL  DESCRIPTION 


Figure  3.9   ADR  Department  Table  Layout  and  Keys 
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CATALOGED    02/20/67    08:27  OaTaCCM/OQ    UP9=Y£S    DStOcOlO 

1  1  KS-FMPL'.'YEE-2-.J 

2  2               «*«€*>*  X                     3                     K 

3  2               EMPNO  X                     6                     K 
<.       i                FULLNAM^  P 

5  J               LASTNAME  X                  12                     P 

6  3               FIt>STme  X                  le 

7  3               ttlDINIT  X                     1 
9      2               PHQNdNO  X                    4 

0: 

SEQ=SECUENCE  NUMO£q 

T  (FIELD  TYPE):   X= ALPHANUME R! C .  N=NUM^RIC.  U=U*SIGNEO  «  C=COND.  NA^t. 

V=VARIABLE.  0=DATE 

I  (INTERNAL  NUMERIC  TvPEI:  P=PACKf3,  2=20NED.  S=51N.A«Y 

CH/OG  tCHARACTERS/DI&ITSI :  NUMBER  OF  CHARACTERS*  INTEGERS.  OR  INT. DEC 

K  (KEY  USAGE  I :   K=^MOLE  KEY.  cs?aRTIAL  KEY  IHIGH  DRDER  "OSITIONI 

REOEFs^EJEFINI I  ION.  DEP  QH=D£P£N9tUG  ON 


Figure  3.10  ADR  Employee  Dataview 


nvw    f^-DEPAPTF.f  vjT-2I  ")0?l 


S-^^^TKENNZ    VHSION:     0C2  STATUS:       *>*UD 
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SF-)    IfVEL    FIELD    NAME  T     I    CH/DG    OCCU"    K    VALUE/H EUEF/DEP    0^ 

CSTAlOGfO    *.'/lfc/87     l*:02  DATtCJM/DB    U"u=VES    OBIT  =010 
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Z       2  TE°TNAM=  X  36 


S^Q=SF  JUENCE    NU»««, 

T     1FIELC    TYPEi:       X  =  AL  CHANU*ERK  .    N-NUMERK*    U=UNSIGNED    .    C'COttO.    NaHE, 

V*VA*t*8L£«    0=DaTE 

I  I  INTERNAL  NUMERIC  TYPEI:   P=PACCEO»  i=.nN=D.  B=BTKAP.V 

CH/M  ICHAR*CTERS/OICITSI  :   NUMBER  OF  CHARACTERS,  UTiOSKS.  OS  INT. DEC 

K  1/cY  US*6£lt   K=WhOLE  KEY,  PsPARTlAL  KEY  IHIGH  ORD^*  P0SITI0N1 

RE0EF=RE0EF INITION,  OEP  ON=DE»ENDING  ON 


Figure  3.11  ADR  Department  Dataview 
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*>CAiciN-u         (dot i   mop  mc*c"  >.    i*?/  09t2Ttii 
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Figure  3.12   ADR  Cardin  Dataview 
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In  Figure  3.13,  the  same  DB2  and  ADR  entities  (ob- 
jects) are  shown  side-by-side  in  an  indented  report  man- 
ner to  allow  the  reader  to  judge  the  similarity  of  the 
two.  This  list  of  entities  was  the  part  implemented  for 
the  mini-system. 
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DB2  ADR 

Storage  group:  DSN8G200 

Data  base:  DSN8D2AP       Database:   Mini-system 
Table  space:  DSN8S2DP      Area:   MS-DEPARTMENT 
Table:  DEPARTMENT         File:  MS-DEPARTMENT 

Record:  MS-DEPARTMENT 
Index:   DSN82.XDEPT1  Key:  misc.  keys 

Element:  misc.  elms 
Field:   misc.  fids 
Table  space:   DSN8S2EM   Area:  MS-EMPLOYEE 


Table:   Employee 

Index:   DSN82.XEMPL1 
Index:   DSN82.XEMPL2 


File:   MS-EMPLOYEE 
Record:  MS-EMPLOYEE 
Key:   misc.  keys 

Element:  misc.  elms 
Field:  Misc.  fids 
Area:  MS-CARDIN 
File:  MS-CARDIN 

Record:  MS-CARDIN 
Key:   misc.  keys 
Element:  misc.  elms 
Field:  Misc.  fids 


Figure  3.13   Side-by-side  Comparison 
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There  were  a  few  database  duplication  problems  en- 
countered in  the  implementing  the  DB2  database  configura- 
tion at  the  ADR  site  that  needed  to  be  handled.  The  two 
databases  used  for  the  two  mini-systems  were  essentially 
the  same,  see  Figure  3.13. 


DB2  has  a  Storage  Group  as  its  highest  level  Object. 
ADR  has  a  Database  as  its  highest  level  Entity.  A  DB2 
Storage  Group  is  a  named  set  of  DASD  volumes  on  which  DB2 
can  be  stored. 

In  the  hierarchy  of  a  DB2  database  are  one  or  more 
Tables  Spaces  logically  comprising  the  database.  Each 
Table  Space  has  one  or  more  table.  A  table  is  a  relation 
of  rows  and  columns.  Data  from  one  or  more  table  can  be 
co-located  in  the  same  Table  Space  (ie.,  file  A  record, 
file  B  record,  file  A  record...  co-located  within  the 
same  Table  Space).  ADR's  counterpart  to  the  Table  Space 
is  the  Area.  An  Area  can  contain  one  or  more  Piles. 
Data  can  also  be  co-located  within  the  same  Area. 
Co-location  of  data  can  improve  performance  if  the 
co-located  records  are  frequently  accessed  together  per 
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formance  may  suffer  if  they  are  not  often  accessed 
together. 

3.  In  the  hierarchy  of  an  ADR  File  (table)  are  Records, 
which  occur  below  the  ADR  file.  DB2  has  no  counterpart 
the  Record.  ADR  development  has  talked  about  eliminating 
the  Record  entity  type  entirely  since  there  is  always  1 
to  1  relationship  between  record  and  file. 

4.  Below  an  ADR  record  is  one  or  more  keys,  elements, 
and  fields.  Each  ADR  Database  has  one  index  which  con- 
tains all  keys  for  that  database.  A  file  can  have  one  or 
more  keys.  An  element  is  one  or  more  contiguous  fields 
from  the  file.  There  can  be  one  or  more  elements  for 
each  record.  An  ADR  dataview  is  related  to  fields 
by-way-of  elements.  There  is  a  relationship  between  an 
ADR  Dataview  and  one  or  more  elements  and  there  is  a 
relationship  between  each  element  and  one  or  more  con- 
tiguous fields. 

DB2's  entities  are  a  bit  different.  An  ADR  Key  is 
called  an  Index.  A  Table  can  have  one  or  more  DB2  In- 
dexes.  An  ADR  database  may  have  but  one  Index.   There  is 
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no  counter  part   for  an  ADR  Element. 

DB2  calls  fields,  columns.  A  Table  will  have  1  or 
more  Columns  and  1  or  more  rows  (records).  DB2  Views  of 
data  are  "mapped"  to  fields  through  SQL  definition 
statements.   See  the  example  below: 

Figure  3.14  provides  a  SQL  definition  of  a  View 
called  PHONE.  which  is  a  view  of  telephone  information. 
This  view  is  used  by  the  DB2  mini-system  batch  program. 
It  was  created  externally  to  the  batch  program. 
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CREATE  VIEW  PHONE  AS 

SELECT  DEPARTMENT . DEPTNAME ,  DEPARTMENT . DEPTNUMBER , 
EMPLOYEE . EMPLOYEENUMBER ,  EMPLOYEE . FIRSTNAME , 
EMPLOYEE . LASTNAME ,  EMPLOYEE . MIDDLEINITI AL , 
EMPLOYEE . PHONENUMBER 
FROM  DEPARTMENT, 

EMPLOYEE 
WHERE  DEPARTMENT . DEPTNO  = 
EMPLOYEE . WORKDEPT 


Figure  3.14   SQL  Phone  View  Definition 
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At  the  ADR  site,  with  the  current  software  releases, 
a  dataview  can  contain  fields  from  only  a  single  file. 
"Logical  joins"  of  files  are  accomplished  by  nesting  ac- 
cesses to  files  (ie.,   nesting  Ideal  "FOR  dataview" 

statements,  see  Figure  3.15).  In  future  software  re- 
leases, a  "dataview  processor"  has  been  promised  which 
would  allow  a  single  dataview  to  access  fields  from  mul- 
tiple files,  or  views  simplifying  the  programming  effort 
and  providing  a  join  of  one  or  more  files  or  views. 


3.1   Program  conversion  problems 

There  were  a  few  problems  that  came  up  in  converting 
the  two  DB2  programs  to  Datacom/DB  at  the  ADR  site.  This 
section  contains  a  discussion  of  the  problems  that  were 
encountered. 

Both  the  DB2  batch  report  and  the  on-line  program 
are  written  in  Cobol  embedded  with  SQL  statements. 
Their  counter  parts  were  written  in  ADR/Ideal  (not 
Cobol).  Ideal  was  chosen  instead  of  Cobol  for  a  variety 
of  reasons.  First,  since  ADR  products  were  acquired, 
Ideal  has  become  the  standard  language  used  by  the  ADR 
site.  Prior  to  Ideal,  PL/1  was  the  shop  standard.  A 
second  reason  for  programming  in  Ideal  was  that  manage- 
ment at  the  ADR  site  preferred  that  IDEAL  be  used  in  this 
product  comparison.  The  author  of  this  paper  works  at 
that  site  and  wanted  the  full  cooperation  of  management 
on  the  project,  so  the   author  complied  with  the  request. 


Program  listings  and  program  output  from  the  DB2  and 
ADR  sites  are  provided  in  the  Appendices  as  listed  in  the 
Table  of  Contents. 

The  DB2  on-line  program  was  streamlined  a  bit  at  the 
ADR  site  out  of  practicality  to  remove  irrelevant  com- 
plication. The  part  that  was  streamlined  was  a  series  of 
DB2  programs  involved  in  validation  of  user  input.  In 
timing  program  response  times  on  the  Employee  Index,  only 
valid  input  was  used.  Timings  did  not  begin  until  after 
input  was  validated,  hence  the  validation  was  not  a  fac- 
tor in  the  timings  and  the  DB2  validation  programs  were 
irrelevant  complication. 

The  user  is  prompted  for  5  things,  4  of  which  were 
validated  (Major  system.  Action,  Object  and  Search 
criteria)  .  Valid  input  in  the  DB2  and  ADR  versions  of 
the  program  was:  "0"  for  Major  System  ("0"  short  for 
Organization),  "D"  for  action  ( "D"  short  for  Display), 
"EM"  for  Object  ("EM"  short  for  EMpioyee)  and  "EI"  for 
Search  Criteria  ("EI"  for  Employee  Id).  A  series  of  pro- 
grams is  involved  in  the  DB2  system  for  this  validation. 
Once  valid  input  was  received  for  these  4  prompts,  the 


Display  Index  portion  of  the  on-line  program,  for 
example,  then  read  a  screen-full  of  records  based  on  a 
read-key  greater  than  or  equal  the  user  input  provided  on 
the  fifth  line  of  the  screen  (ie.,  An  employee  id  of 
000001).  Various  records  were  read,  data  was  gathered 
for  each  line  of  the  index  and  the  screen  was  then 
painted  with  an  the  first  page  of  the  index.  The  user 
could  then  press  one  of  3  PF  keys  to  continue.  (PF2  to 
resend  the  initial  screen  with  all  values  removed,  PF3  to 
end  the  program  or  PF8  to  page  forward  on  the  index  of 
records)  . 

Data  was  gathered  from  two  files,  the  EMPLOYEE  file 
and  DEPARTMENT  file,  in  painting  the  screen. 


DB2  SQL  has  CURSORS  to  aid  in  selection  of  EMPLOYEE 
and  DEPARTMENT  records.  A  cursor  is  a  named  control 
structure  used  by  an  application  program  to  point  to  a 
row  in  a  table.  The  position  of  the  row  is  within  seme 
ordered  set  of  rows,  and  the  cursor  is  used  to  retrieve 
rows  from  the  set.  ADR  has  no  such  aid.  Rows  had  to  be 
selected  from  the  MS-EMPLOYEE  and  MS-DEPARTMENT  files  by 


nesting  FOR  statements  in  Ideal,  see  Figure  3.15. 
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FOR  EACH  MS-EMPLOYEE-2  NO  UPDATE 

WHERE  MS-EMPLOYEE-2. LASTNAME  =  WK-IN-LNAME 
ORDERED  BY  WORKDEPT  EMPNO 
various  statements 

FOR  EACH  MS-DEPARTMENT-2  NO  UPDATE 
WHERE  MS-DEPARTMENT-2. DEPTNO  = 
MS-DEPARTMENT-2 .WORKDEPT 
various  statements 
WHEN  NONE 

various  statements 
ENDFOR   :FOR  EACH  MS-DEPARTMENT-2 
WHEN  NONE 

various  statements 
ENDFOR   :FOR  EACH  MS-EMPLOYEE-2 


Figure  3.15   ADR  Ideal  Nested  FOR  Statements 


3-32 


Another  problem  was  access  of  JCL  SYSIN  card  images 
with  ADR's  Ideal.  One  can  do  so  only  by  calling  a 
non-Ideal  (ie.,  Cobol  or  Assembler  subprogram  which  ac- 
cesses the  SYSIN  file) .  PL/1  subprogram  interfaces  were 
considered  not  a  priority  item  with  the  Ideal  development 
staff,  and  may  be  added  at  a  later  date. 

Ideal  handles  I/O  to  and  from  ADR/Datacom/DB  files 
and  ADR/Ideal-def ined  Panels  and  Reports  very  well, 
non-Datacom  file  I/O  is  handled  only  through  non-Ideal 
subprograms.  In  the  mini-system,  as  is  typically  done  at 
the  ADR  site,  SYSIN  card  images  were  loaded  in  a 
Datacom/DB  file  using  an  online  data  entry  utility. 

ADR  Panel  definition  and  Report  definition  was  very 
easy  and  flexible.  ADR's  Report  Definition  Facility  made 
setting  up  and  modifying  a  screen  very  easy.  DB2  used 
CICS  BMS  (basic  mapping  support)  which  makes  screen 
"painting"  a  very  tedious  task.  DB2  provides  no  tools  to 
aid  in  working  with  BMS,  however,  screen-painting  soft- 
ware can  be  purchased  from  various  vendors. 
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3.2   Program  Timings 


Program  timing  statistics  were  kept  for  each  pro- 
gram. The  batch  and  on-line  programs  were  specifically 
run  at  times  of  the  day  when  they  were  the  only  programs 
running  and  had  no  competition  from  any  other  program  for 
computer  resources.  The  DEPARTMENT  file  had  6  records  in 
it.  The  EMPLOYEE  file  originally  had  just  32  records, 
but  1000  records  were  added  at  each  site  bringing  the  to- 
tal number  of  EMPLOYEE  records  to  1032.  Both  sites  had 
exactly  the  same  data  in  their  files.  Those  timings  are 
given  in  Figure  3.16. 
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DB2 
Batch  report  program 
CPU  time:      14.78  sec. 
Actual  time:     .31  min. 


ADR 
Batch  report  program 
CPU  time:     13.05  sec. 
Actual  time:    .25  min. 


On-line  index  display 
Index  1st  page:     3  sec. 
PF8 ,  Index  2nd  pg:  3  sec. 


On-line  index  display 
Index  1st  page:     2  sec. 
PF8,  Index  2nd  pg:  2  sec. 


Figure  3.16   Program  Timings 
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Chapter  4 
Conclusions  and  Future  Work 

4.0   Conclusions 

One  would  think  that  being  a  current  user  of  ADR 
software,  the  author  would  be  strongly  prefer  the  more 
familiar  ADR  software  over  DB2  DBMS  software.  Prior  to 
the  study,  this  was  the  case.  After  the  study  of  these 
two  commercial  DBMS  software  systems,  that  was  not  the 
case.  An  appreciation  has  developed  for  the  potential 
flexibility  and  impressive  features  possessed  by  DB2 
software. 


Announced  in  June  1983,  and  not  generally  available 
until  April  1985,  DB2  has  proved  to  be  a  very  impressive 
set  of  products. 

"ADR's  DBMS  is  quasi-relational,  utilizing  a 
relational  front  end  that  provides  end-user  friendliness. 
This  is  not  to  say  that  it  does  not  possess  relational 


4-1 


capabilities.  DB2  is  slow  compared  to  its  competitors. 
However,  it  is  a  young  product  and  because  it  is  sup- 
ported and  enhanced  by  IBM,  DB2's  prospects  for  success 
are  excellent...".  [16]  The  logical  data  structure  un- 
derlying the  front  end  is  hierarchical,  which  does  not 
meet  Date's  criteria  as  being  truly  relational. 

ADR/Datacom/DB  is,  nevertheless,  an  extremely 
popular  DBMS.  Although  not  a  true  representation  of  a 
relational  system  in  the  mold  of  IBM's  SQL/DS  or  DB2, 
ADR/Datacom/DB  does  come  with  an  impressive  list  of 
options  and  "add-ons"  that  allow  the  user  to  build  a  DBMS 
environment  conducive  to  the  operations  of  the  installa- 
tion. 


In  the  second  and  third  chapters  of  this  paper, 
some  differences  between  DB2  and  ADR  products  were 
described.  Out  of  all  those  differences,  the  most 
prominent  is  the  view  of  data.  DE2  provides  much  more 
flexibility  in  the  construction  of  its  views.  DB2  view 
can  be  constructed  dynamically  by  a  program,  if  autho- 
rized.  DB2  views  can  consist  of  fields  from  more  than 
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one  table,  of  fields  from  other  views  or  from  a  combina- 
tion of  views  and  tables.  The  programmer  does  not  need 
to  be  concerned  with  "logical  joins"  of  2  or  more  tables 
as  he  does  with  ADR  software.  A  programmer  using  ADR 
software  accomplishes  "logical  joins"  of  tables  by  nest- 
ing the  file  accesses.  The  programmer  must  be  aware  of 
the  data  that  needs  to  be  gathered  and  processed  and 
whether  it  comes  from  one  or  more  tables.  A  DB2  program- 
mer may  be  provided  with  one  preconstructed  view  of  data 
which  consists  of  fields  from  any  combination  of  tables 
and/or  views.  The  DB2  programmer's  work  is  reduced  in 
this  respect.  A  dataview  processor  is  promised  in  a  fu- 
ture release  of  ADR  products  which  should  solve  this  for 
the  ADR  programmer . 

ADR's  fourth  generation  language.  Ideal,  provides 
many  conveniences  for  the  programmer  which  IBM's 
Cobol-embedded  SQL  does  not  have.  The  task  of  screen 
production  in  on-line  programming  is  simplified  greatly. 
ADR  has  PDF,  a  Panel  (screen)  Definition  Facility,  which 
provides  separate  fill-in  screen-design  aids  which  allows 
the  programmer  to  "paint"  sophisticated  screen  very  sim- 
ply and  quickly.    DB2  at  this  point  uses  CICS  BMS  (basic 


mapping  support).  Screens  can  be  painted  using  non-DB2 
CICS  screen  design  tools.  None  is  provided  with  DB2 
products . 

Another  Ideal  time-saver  is  report  production  capa- 
bilities. Ideal  provides  RDF,  a  Report  Definition  Facil- 
ity, to  aid  in  the  production  of  routine  batch  report 
production.  Things  such  as  column  headings,  page  num- 
bers, summary  totals,  level  breaks,  lines  per  page,  etc. 
are  handled  very  by  RDF.  The  programmer  defines  the  Re- 
port separately  from  the  program  and  lists  the  report  in 
the  Resource  Section  of  his  Ideal  program  (along  with  any 
Dataviews,  Sub  programs  or  Panels  used).  DB2  provides  a 
report  writer,  but  the  DB2  site  in  section  3's 
mini -system  had  not  yet  purchased  it,  so  depended  on  an 
application  programmer's  report  producing  skills  using 
Cobol . 

Nothing  is  defined  dynamically  within  an  ADR 
program.  All  dataviews,  indexes,  etc.  must  be  defined 
outside  of  the  program.  With  the  proper  authorization, 
DB2  provides  the  flexibility  of  dynamic  definition  of  en- 
tities within  application  programs.   However,  there  are 
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some  limitations  in  updating  data  when  using  views 
containing  fields  from  more  than  1  table.  For  non-update 
processing  of  data,  however,  this  does  remove  some  burden 
from  the  application  programmer. 

"4GLs  (fourth  generation  languages)  are  easier  for  a 
programmer  to  use  than  Cobol .  Novice  programmers  with 
very  little  commercial  experience  can  learn  Ideal  'and 
run  with  it'  and  become  very  productive  very  quickly. 
Independent  software  vendors  will  have  to  respond  to  this 
by  modifying  their  tools  to  work  with  DB2.  It's  not  dif- 
ficult to  speculate  that  soon  you  will  be  able  to  buy  DB2 
from  IBM  and  acquire.  ..  Ideal  from  ADR  to  work  with  it." 
[54] 

ADR  in  early  1987  announced  support  of  DB2  and 
initially,  a  selected  subset  of  SQL.  ANSI  (American 
National  Standards  Institute)  recently  recognized  SQL  as 
an  industry  data  manipulation  language  standard. 

All  data  in  a  DB2  data  base  is  stored  in  VSAM  entry 
sequenced  data  sets  (ESDS),  ADR  uses  Datacom  /DA  (direct 
access  format)  files. 


DB2  product  documentation,  which  is  extensive, 
presents  DB2  in  a  well-organized  and  straightforward  man- 
ner and  as  such  should  be  considered  an  additional  prod- 
uct strength.  ADR  could  use  a  some  improvement  in  this 
area.  ADR  should  pattern  their  documentation  after 
DB2's. 

The  fact  that  DB2  can  coexist  with  and  complement 
IMS/VS/DB  and  allows  concurrent  access  to  data  is  a 
definite  advantage.  However,  at  this  point  DB2  is  still 
being  used  primarily  as  an  adjunct  to  the  IMS/VS/DB, 
which  causes  DB2  to  function  less  as  a  full  relational 
DBMS,  and  more  as  a  data  language  that  gives  IMS/VS/DB 
users  relational  capability.  "DB2  coexists  with  IMS  and 
can  share  data  via  an  extraction  module.  Users  can  move 
from  IMS  to  DB2  and  still  protect  their  investment  in  IMS 
applications".   16 

"Except  for  SQL/DS,  DB2  and  a  few  others,  most  of 
the  products  offer  an  interpretive  data  sublanguage 
facility.  To  improve  efficiency  and  obtain  a  higher 
performance,  relational  systems  should  support  data 
sublanguage  compilers  instead  of  interpreters.   In 
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addition  to  this,  they  should  provide  a  precompiler  for 
support  of  the  callable  procedural  languages  such  as  Co- 
bol .  This  reduces  the  run-time  system  overhead  and  thus 
improves  performance."   16 

DB2  uses  IMS  DB/DC  as  its  data  dictionary.  IBM  has 
obviously  not  "re-invented  the  wheel"  in  a  few  areas  of 
its  software;  VSAM  files  are  used  for  data  storage  and 
IMS's  DB/DC  data  dictionary  is  used  for  DB2.  DB/DC  would 
need  to  be  purchased. 

"Relational  systems  utilize  a  higher-level  language 
for  separating  the  translation  from  source  code  from  the 
execution  of  target  object  code.  Consequently,  they 
require  more  computing  resources  for  the  translation  to 
be  effective,  and  human  productivity  is  increased  at  the 
expense  of  the  additional  computing  resources  necessary." 
16  With  labor  costs  steadily  rising  and  hardware 
costs  dropping,  this  hardly  appears  to  be  a  problem. 

Figure  3.16  shows  timings  were  kept  for  programs  in 
the  miniature  application  system  programming  effort  of 
chapter  3.   The  purpose  of  the  timings  was  to  make 
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further  comparison  of  the  two  DBMS  product  families 
through  on-line  and  batch  programs  written  in  each  envi- 
ronment. In  this  test  there  was  very  little  difference 
in  the  timings  for  either  set  of  programs,  on-line  or 
batch.  The  ADR  programs  did  execute  a  bit  faster  than 
their  counter  parts. 

It  was  interesting  to  have  the  timings  as  close  as 
they  were.  The  two  test  sites  were  selected  because  of 
their  similarities  in  operating  environments  (see  Figure 
3.2,  profiles  of  test  sites).  Conditions  at  the  DB2  site 
were  duplicated  at  the  ADR  site  as  closely  as  possible. 
Yet  differences,  as  discussed  in  detail  in  chapter  3,  did 
exist  (ie..  Differences  in  the  data  base  configurations, 
programming  languages  used,  dynamic  verses  static  access 
paths  to  data,  etc.).  On  the  small  scale  in  which  this 
test  product  comparison  was  conducted,  approximately  1000 
Employee  and  10  Department  file  records  were  processed, 
timings  were  almost  the  same.  On  a  much  larger  scale  the 
differences  in  the  timings  may  have  been  much  greater. 
However,  the  mini-application  programming  effort  of  chap- 
ter 3  was  an  excellent  vehicle  in  discussing  DBMS  prod- 
uct family  differences  in  detail. 


4-8 


4 . 1   Future  Work 


It  was  mentioned  before  that  ADR  has  announced  a 
"support  commitment  for  such  industry  standards  ...  as 
SQL,  DB2,  SQL/DS , . . .  to  equip  users  with  a  foundation  for 
investment  protection  while  being  positioned  for  technol- 
ogy refresh".  [16]  ADR  plans  to  start  with  a  "subset  of 
SQL".  These  plans  were  just  announced  in  early  1987.  No 
further  details  are  available.  The  SQL  subset  will  very 
probably  contain  no  data  definition  statements.  It  will 
very  likely  contain  only  selected  data  manipulation 
statements.  Providing  SQL  support  will  allow  one  to 
write  a  program  access  either  a  DB2  database  or  ADR 
database  or  both  within  the  same  program. 

Future  work  could  include  a  study  of  the  subset  of 
SQL  that  ADR  chooses  to  support.  Details  of  the  inter- 
facing products  should  be  documented  as  well.  A  perfor- 
mance comparison  similar  to  the  effort  in  this  paper 
could  be  done.  Programs  could  be  written  demonstrating 
performance  comparisons  between  ADR's  SQL  subset  and 
DB2's  data  manipulation  language. 


ADR  and  DB2  DBMS  products  continue  to  evolve  to  meet 
their  customer's  needs.  The  versions  of  software  for 
each  family  of  products  will  need  to  provide  downward 
support  of  existing  customer  database  configurations, 
but  likely  will  contain  many  new  and  exciting  enhance- 
ments for  the  customer. 
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.DO*v"#  fo1®&ft 

JOHN 
JOHN 

E 

E     ■ 

0000 
0000, 

300017 
300019 

£21      SOFTUARE   SUPPORT 
E21     -SOFTWARE    SUPPORT 

OOE 

JOHN 

E 

0000 

300019 

E21       SOFTWARE    SUPPORT 

fchOM''    '.'I  .     j*S 

JOHN 
JOHW-; 

E 

,.:.    E-    . 

0000 

0  000 

300020 
300021 

E21      SOFTUARE   SUPPORT 
E21       SOFTUARE    SUPPORT 

r 
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i  : 

1= 

J; 
l; 

:; 
;; 
;• 

r 

LAST    NAME 

FIRST 

NAME          INITIAL 

PHONE       EMPLOYE! 

WORK    WORX 

; 

NUMBER    NLHBER 

DEPT   NAME 

*            OOP 

JOHN 

E 

OOOO         300022 

E21       SOFTWARE    SUPPORT 

•            DOE 

JOHN 

JOHN 

E 
E 

0000         300023 
0000        300024 

E21       SOFTWARE    SUPPORT 
E21       SOFTWARE    SUPPORT 

<            DOE 

JOHN 

E 

0000         300025 

E21       SOFTWARE    SUPPORT 

;  1 

JOHN 

JOHN 

e  : 

E 

0000        300026 
OCOO         300027 

E21       SOFTWARE    SUPPORT 
E21  X  SOFTWARE    SUPPORT 

i       ooe 

JOHN 

E 

0000         30002B 

E21       SOFTWARE    SUPPORT 

'^•>  DOE         .        "    .  '.-'. 

JOHN  J 

.jomi 

E 

*■;  ■•      e  -   . 

0000         300C29 
0000         300030 

E2t      SOFTWARE   SUPPORT 

■ 

*          OOE 

JOHN 

E 

0000         300031 

E21       SOFTWARE    SUPPORT 

y-i  ■> OOE                    p^*j 

JOHN 

JOHN 

E 

0000         300032/ 
OOOO         300033  - 

E21      SOFTWARE   SUPPORT 
E2t      SOFTWARE    SUPPORT 

■          DOE 

JOHN 

E 

0000         300034 

E21       SOFTWARE    SUPPORT 

4«v  ooe 

JOHN- 
JOHN 

e 

OOOO         36003* 
OOOO         300036 

E21       SOFTWARE    SUPPORT 
E21      SOFTWARE   SUPPORT 

•          OOE 

JOHN 

E 

OOOO         300037 

E21       SOFTWARE    SUPPORT 

»     V-     DOE 

JOHN 

E 

OOOO         300039 

E21       SOFTWARE    SUPPORT 
E21       SOFTWARE   SUPPORT 

DOE 

JOHN 

E 

OOOO         300040 

EZ1       SOFTWARE    SUPPORT 

»          ooe 
»    •   *  DOE 

JOHN 

JOHN 

E 
E 

OOOO         300041 
OOOO         300042 

821       SOFTWARE    SUPPORT 
E21r     SOFTWARE    SUPPORT 

'       ooe 

JOHN 

E 

OOOO         3000*3 

E21       SOFTWARE    SUPPORT 

'3f'56e  ;- ;    :-C1'"'-- 

JOHN 

E 

E 

OOOO         300044 

OOOO          300045 

E21       SOFTWARE    SUPPORT 
E21      SOFTWARE    SUPPORT 

DOE 

JOHN 

E 

OOOO         300046 

E21       SOFTWARE    SUPPORT 

a&bbe 

JOHN  " 

<       E 

OOOO         300047 
OOOO         300048 

E21       SOFTWARE    SUPPORT 
E21      SOFTWARE   SUPPORT 

I 
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1 

XL 

c 

: 

■ 

) 

!    1 

1 
3 

J 
» 
1 

i 
1 
. 
1 

r 

DIRECTO 
PHONE 

LAST   NAME 

FIRST 

NAME          INITIAL 

EMPLOYEE 
NUMBER 

rfORK 
DEPT 

WORK 

•! 

NUMBER 

NAME 

SUPPORT 
SUPPORT  ' 
SUPPORT 

■|         OOE 

JOHN 

E 

0  000 

3000*9 

E21 

"E21" 

E21 

SOFTWASc 

Software 

JOFIH*Rg_ 
SOFTWARE 

';         DOE 
•I         OOE 

JOHN 
JOHN 

E 

E      . 

0003 

0000 

300050 
300051 

•l         DOE 

1 

JGrrf* 

E 

0000 

300052 

£21 

SUPPORT 

"I        DOE 

"I 

"I         OOE    I 

JOHN 
JOHN 

E 

E 

0000 

cooo 

300053 

30 005* 

E21 
E21 

E21 

SOFTWARE 
SOFTWARE 

SUPPORT 
SUPPORT 

'^         OOE 

JOHN 

E 

0000 

300055 

SOFTWARE 

SUPPORT 

i,           006       " 

JOHN 
JOHN 

E 

-.■     «<'.     E 

0000 
0000 

300056 
30005T 

£21 
E21 

SOFTWARE 
SOFTWARE 

SUPPORT 
SUPPORT 

SUPPORT 

*>          DOE 

JOHN 

E 

0000 

300058 

£21 

SOFTWARE 

»           DUfc 
xi          OOE 

JOHN 
JOHN 

E 
E 

0000 
0000 

300059 
300060 

E21 
E21 

SOFTWARE 
SOFTWARE 

SUPPORT 
SUPPORT 

»          OOE 

JOHN 

E 

0000 

300061 

E21 

SOFTWARE 

SUPPORT 

ill         poE 
u          DOE 

JOHN 
JOHN 

E 

E 

0000 
OOOG 

300062 
300063 

E21 

£21 

SOFTWARE 
SOFTWARE 

"SUPPORT 
SUPPORT 

J.          006 

JOHN 

E 

0  000 

30006*         621 

"3TJ0055 E2l~ 

300066        E21 
3000  67         E21 

SOFTWARE 

SUPPORT 

i-l         uut 

"1 

»          DOE 

JOHN 
JOHN 

E 

E 

0000 
0000 

0000 

^SOFTWARE" 
SOFTWARE 
SOFTWARE 

SUPPORT 

q   doe 

JOHN 

E 

SUPPORT 

•.'         DOE 

H 

006 

JOHN 
JOHN 

E 

E 

0000 
0000 

300068 
300069 

E21 
E21 

~50FTflA~ff£~ 
SOFTWARE 

SOTpTJRT^ 
SUPPORT 

SUPPORT 

i  boe 

JOHN 

E 

0000 

300070 

E21 

SOFTWARE 

JOHN 
JOHN 

E 
E 

0000, 

300071 

300072 

E21      SOFTWARE    SUPPORT 

3          OOE 

JOHN 

E 

0000 

300073 

621 

SOFTWARE 

SUPPORT 

»[....  out 

rls ooi>*    \-.       ■■    -., 

JOHN 
JOHN 

■ 

0000 

30007* 
300075 

E21 

E21 

"SOFTTORE" 
SOFTWARE 

SUPPORT 

'\'          .':'' 

1 
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TELEPHONE    DIRECTORY      


LAST    NAME 


FIRST    NAME 


,! 


DOE 
DOE 


■ ;-'  DOE 

<i    ore 


TOE- 

i 

gj  oog 


OOE 

006 


DOE 
DOE 


•r 


DDE 
DOE 


DOE 
DOE 


DOE 
DOE 


1     '          ' 

1 

I 

INITIAL    PHONE EMPLOYEE    WORK    WORK 

NUMBER    NUMBER         DEPT    NAME 


JOHN 


JOHN 
JOHN 


Eg OTW — 

?.*    ., .  JOHN 


JOHN 
JOHN 


JOHN 
JOHN 


JOHN 
JOHN 


JOHN 


JOHN 
JOHN 


E21       SOFTWARE    SUPPORT 


OOOO 
0000 


300C77 
300078 


E21      SOFTWARE    SUPPORT 
E2t      SOFTWARE    SUPPORT 


0000         300079  £21       SOFTWARE    SUPPORT 


0000         300080         E21      SOFTWARE    SUPPORT 
0000         30008  J.E2L      SOFTWARE    SUPPORT 


E2L       SOFTWARE    SUPPORT 


OOOlF        300083^    E21      SOFTWARE    SUPPORT 
OOOO:      3000aV-i    E21-    SOFTWARE   SUPPORT. 


E21       SOFTWARE    SUPPORT 


00615         300066         E21       SOFTWARE    SUPPORT 
OOOO        300087?       E2I,     SOFTWARE   SUPPORT 


OOOO         300088         E21       SOFTWARE    SUPPORT 

OOOO        300069        £2l      SOFTWARE    SUPPORT 

•  OOOO        3000*0        E21      SOFTWARE    SUPPORT 


OOOO         300091  E21       SOFTWARE    SUPPORT 


OOOO 
OOOO 


300092  E21   SOFTWARE  SUPPORT 

300093  E21   SOFTWARE  SUPPORT 


300094         E2I       SOFTWARE    SUPPORT 


OO0T5         30004$         Ell       SOFTWARE    SUPPORT 
OOOO         300096         E21       SOFTWARE    SUPPORT 


OOOO         300097         E21       SOFTWARE    SUPPORT 


OOOO        300098        E7I      SOFTWARE    SUPPORT 
OOOO,        300099         E21      SOFTWARE    SUPPORT 


OOOO         300100 


E21       SOFTWARE    SUPPORT 
"SUPPORT 


"3  0755 300161        E2l     SQFTWAJ 

OOOO        300102  ■     E21      SOFTWARE   SUPPORT 
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TELEPHONE    DIRECTORY      — 


N1TIAL   PHONE      EMPLOYER  WORK    WORK 
NUMBER    Mm:  R         OEPT   NAME 


0000         300103        E21      SOFTWARE    SUPPORT 


0000         30010*         £21      "SOFTWARE    SUPPORT 
0000        300105        E21      fflgjMgEJHHhffl 


OO00         300106        E21      SOFTWARE    SUPPORT 


"0000        300107         E21      SOFTWARE    SUPPORT 
0000        300108        E21      SOFTWAaEsllpplHT 


0000         300109  E21  SOFTWARE    SUPPORT 

osoo     rooTio  i2i  software  support " 

0000        300111  E21  SOFTWARE   SUPPORT 

300112  E21  SOFTWARE    SUPPORT 

300in  £21  SOFTWARE    SUPPORT  " 

30011V  E21  SOFTWARE    SUPPORT 


0000 

"0050- 

0000 


0000        300115         E21      SOFTWARE    SUPPORT 
307J1T5        ETI      5nFTH«T/-IUTf|>TfRT~ 
30011T        E21      SOFTWARE    SUPPORT 


UTJOTT 
0000 


OCOO         3C0118         E21  SOFTWARE    SUPPORT 

TOOT        350119        ET1  SDFTwTlTrr*STJP'POUT~ 

.0000  ___J00_120 E21  SOFTWARE    SUPPORT^ 

0000        300121         E21  SOFTWARE    SUPPORT 

305T72        E2T  SOFTWaT(E~STJpt>DRT— 


TTOtfO 

_000p  300123  F21      SOFTWARE    SUPPORT^ 

0000  30012*  E21      SOFTWARE    SUPPORT 

"000  JOOTZS"  r/2I~S0FTWAnrr-STJPl>0TrT- 

0000  »30012t  E21      SOFTWARE  SUPPORT 

0000  .  30012T  E21      SOFTWARE    SUPPORT 

""""^  300128  E2I — SUFI  WARE    SUPPORT 

0000  300129  E21      SOFTWARE   SUPPORT 


6-7 


LAST  NA.1E 


TELEPHONE  DIRECTORY 


INITIAL    PHONE       EMPLOYEE    WORK    WO RX _ 
NUMBER    NUMBER         OEPT    NAME 


:• 


OOt 


OOE 
;'DQEV. 


jam 

JQHW 


~ssmr~ 

JOHhV   . 


0000  30099*  E21   SOFTWARE  SUPPORT 

0000  300995  £21   SOFTWARE  SUPPORT^ 

0000  300996  -  £21 ^SOFTWARE  SUPPORT 

0000  300997  621   SOFTWARE  SUPPORT 

0000  300998  E21   SOFTWARE  SUPPORT 

OOOO  300999  E2E&*  SOFTWARE  SUPPORT 


t   3-1 


1  i 


-•--  - 


— , — 


i 
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q 


TELEPHONE  DIRECTORY 


FIRST  NAME 


_INI  TIAL  PHONE   EMPLOYEE  WORK  WORK 
NUMBER  NUMBER"   OEPT  NAME 


3V7i    000020    BOl   PLANNING 


: 

AOaRSon 

BRUCE 
JAMES 

j 

*510    00OL5O    Oil   MANUFACTURING  SYSTEMS 
*265    000230    021   ADMINISTRATION  SYSTEMS 

10 

JOHNSON 

SYBIL 

V 

8953    000260    021   ADMINISTRATION  SYSTEMS 

- 

HENDERSON 

EILEEN 

U 

$49B  000090   til  Operations 

'■ 

*•?  *     '  -                ;                                    • 

•  J 

I  ) 

1* 

1 

I 

, 

J 
) 
i 

> 

» 

" 

«" 

» 

" 

~ 

V 

,;..;•  '4,4-:  :.:i.,,,; 

k  Mk« 

,-'■ 
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1 
: 
; 
: 
: 
) 
i  l 
i  i 

I 

1 

i 

TELEPHONE    DIRECTORY      

LAST    NAME                     fIRST   NAME         INITIAL    PHONE      EMPLOYEE    WORK   WORK 

*\                                                                                                      NUM3ER   NUMBER        DEPT  NAME 

DSNSOOfll    -    NO    EMPLOYEE    FOUND    IN    TABLE 

" 

" 

w 

■  '■■'■■                          ■  .''£*!;               '                    '■.%  '"           '                                 "■■ 

J 

■ 

J§    }•       i§              ■  ..  'M                       '     : 

; 

« 

:.■■                                                                .... 

" 

" 

£■■■>'•;■■-'                     '.*■'<.£$.•*■         ;[i»v               ■  v4<>3&: /-v          •  ■*»      s-         ;  £•  : 

m 

: 

M 

. 

j 

M 

J 

« 

J 

; 

.. 

e 

■:r  :'■!•'  -                                     ;,.'•.■'-  •                           .- 

1 
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TELIE  PHONE    DIRECTORY       

FIRST    NAME  INITIAL    PHONE       EMPLOYEE    WORK    WORK 

NUMBER    NUMBER         DEPTNAHE 

DAVID  *50l  300200         Oil       MANUFACTURING    SYSTEMS 
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LAST  NAME 


TELEPHONE  DIRECTOR* 


FIRST  NAME    INITIAL  PHONE   EMPLOYEE  WORK  WORK_ 
NUMBER  NUMBER    DEPT  NAME 


,  ■« 


09*2    000210    Oil   MANUFACTURING  SYSTEM1; 
6953    000260"   021  "aOmTnISTRA  TION  SYSTEMS" 


J 

r 
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I-1 


TELEPHONE    DIRECTORY      

LAST    NAME FIRST   NAME  INITIAL    PHONE       EMPLOYEE    MORK    WORK 

NUMBER    NUMBER    "dEPTNAHE 


SMITH 
SHI TH" 


0961    000250    Oil   ADMINISTRATION  SYSTEMS 
2095    000300"   Til   OPERAflONS" 


i 
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TELEPHONE    DTRECTOKY      

\  LAST    NAME FIRST    NAME  INITI AL    PHONE  _  E MPLOVEE    WORK    WORK 

NUMBER    NUMBER         3EPT   NAME 


fl 


I 


i 

DSNBOOVI  -  EMPLOYEE  SUCCESSFULLY  UPDATED 

: 

i 

j 

) 

1  i          ■        -■ 

i 

, 

* 

■| 

i 

3 

J; 

* 

V 

;; 

i; 

1; 

J; 

J; 

[ 

*'■■■ 
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PGM   CCFA95HI    001    TEST 


FEBRUARY  25t  19BT 


IDENTIFICATION:  CCFA95BI 


VERSION:  001  ST ATUS:"' TEST 


PROGRAM  CCFA95BI 


"LAST  MOOIFITO"    02/25/67  AT  16:50 
LAST  COMPILED     02/25/87  AT  16:51 


8T  GARTEN 
BY  GARTEN 


RUN  STATUS:  PRIVATE 

SHORT  DESCRIPTION:   

LANGUAGE:   IDEAL     TARGET  OATE 


ACTUAL  DA  IE 


DESCRIPTION: 


— . 


i I 


| 


] 


~KDR  -  Batch  Program 
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PGM 

CCFA958I          001          TEST             SYS: tID 

fCaRUARY    25t    1937 

18:29:01 

RESOURCES:                CCFA95BI                     VERSION: 
■                                                        OATAVIC-M                     VER 

001    STATUS:      TEST 
PANEL          VER 

REPORT         VCR 

PROGRAM 

VER         SYS 

I 

• 

MS-CARD IN-U               0001 

CCFA90R1    0001 

CCFA95VI 

■ 

HS-OEPARTMENT-2    0002 
MS-EHPLOYEE-2         0006 



CCFA99VI 

:; 

19        : 

" 

' 

._ 

; 

„ 

- 

■■?■ 

-■'■ 

■ 

■■    '-     i 

-      : 

I   : 

» 

1  J 

>• 

S: 

j 

„ 

i 

i 

"   :-■■ 

■ 

M 

; 

a  ; 

j 

• 

T  ■■"' 

> 
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' 

u. 

D 


PGM       CCFA95BI 


/T 


FEBRUARY    25»     1987 


HS-CAROIN-U  VERSION:    001    STATUS: 

OATAVIEW:    MS-CAROIN-U 


SEQ   LEVEL  FIELD    NAME 

CATALOGED  02/2»/B7    15:22 

TT.  Kr^ARTJffi^U 

2      2  CAROIN-KEY 
3'       3  IN-ACTION 

*         3  tN-LNAME 

5  3  IN-FNAME 

6  3  IN-EHPNO 
TT~3  OFRewNC"- ~ 


T    I    CH/OG    OCCUR    K    VALiJE/REDEF/OEP    ON 
DATACOH/DB   UP0=Y6S    DflID=010 


|'J« 


SEQ=SEQUENCE    NUMBER  ~ 

T    (FIELD    TYPE):       X=ALPHANUMERIC*    N=NUMERIC.    U=UNSIGNEO    •    C=CONO.    NAME, 

V=VARIABLE»    D=DATE 


~rTTHTEftt«mUHERTC"TYreri — PSP*CKEDT~Z=  ZaHETjiHS^ei  JWHy^T— ^ — 

CH/OG    (CHARACTERS/DIGITS):       NUMBER   OF  CHARACTERS*     INTEGERS, *OR    INT. DEC 
K    (KEY  USAGE):       K= WHOLE    KEY,    P=»PARTIAL    KEY    (HIGH   ORDER   POSITION)_^___ 

REOEF^RtDEFINITION,    DcP    ON=DEPENOING    ON 
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J 


\ 

PGH 

CCFA95BI         00 L          TEST            SYS: *I0            FEBRUARY    25*     19B7            18:29:01 

1 

*  DATAVIEW:                  HS-DEPARTHENT-2    VERSION:    002    STATUS:      PROD 

*  DATAVIE*:    NS-OEPARTMENT-2 

• 

SEQ   LEVEL    FIELD    NAME                               T     I    CH/OC    GCCUR    K    VALUE/REOEF/DEP 

ON 

CATALOGED   02/16/87    1*:Q2                  DATACOH/DB   UPD=YES    DBID=010 

3 

\ 

X    1               MS-DEPART KENT- 2 

2  2             DEPTNAME                               X                36 

3  2             OEPTNO                                   X                  3                  K 

] 

:; 

LEGEND: 

SEG*SEtJUENCE    NUMBER 

J 

« 

T    (FIELO    TYPE}:       X=ALPHANUMERIC,    N=NUMERIC.    0=UNSIGNEO    t    C'CONO. 

INVARIABLE.    O-DATE 

I    (INTERNAL    NUMERIC    TYPE):       P=?ACKED»    Z«ZONED»    3=Bir.ARY 

UAH-:, 

1 

» 

CH/DG    (CHARACTERS/DIGITS):       NUMBER   OF   CHARACTERS*    INTEGERS?    OR    INT. DEC 
K    (KEY   USAGE):       K=HHQLE    KEY,    P=PARTIAL    KEY    (HIGH   ORDER    POSITION) 
REDEF=HE0EFINITION»    DEP    ON=DEPENDING   ON 

1 

-•» 

:>"■■;'           "■                           ■                   . 

m. 

1  J 

i 

. 

h 

j 

• 

i 

» 

j 

; 

- 

j 

" 

i 

•> 

j 

» 

t 

■i 
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t 

p 

• 

PGM   CCFA958I 


DATA VIEW: 


FEBRUARY  25,  1987 


MS-EMPLOYEE-2    VERSION:  006  STATUS! 
OATAVIEW."  HS-EHPLOYEE-2 


SEQ  LEV&L  FIELD  NAME 


CATALOGEO  02/16/ST  15:*5 
TT.     MS-EMPLQYEE-Z 
Z      2      WORKOEPT 
3   2      EMPNO  ___ 


T  I  CH/OG  OCCUR  K  VALUE/REDEF/DEP  UN 
DATACQH/DB  UPD=YES  OaiD=OIO_ 


FIRSTNME 

LASTNAME 
6 2  NIOINIT 
y      r    — PHORENO 


12 

15 
1 


SEQ=SEQUENCE  NUMBER 

T    (FIELD    TYPE):       X=ALPHANUHERIC,    N=NUNERICt    U=UNSIGNED    I    C=CONO.    NAME, 
-VARIABLE,    D=OATE 


I    (INTERHATrTJUHeftTC"TYPE)T~- P^PACKeOf   Z»ZOREDTT^BlNAft¥~~ 
CH/DG    (CHARACTERS/DIGITS):       NUMBER    OF   CHARACTERS.    INTEGERS,    OR    INT.DEC 
K    (KEY   USAGE);      K=WHOLE    KEY.    P=PARTIAL    KEY    (HIGH   OROER    POSITION) 
REDEF=REDEFINITION,    DEP    ON=DEPENDING   OH 
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PGH   CCFA956[    001    TEST     SYS:SI0     FEBRUARY  25.  1987     18:29:31 


/ 

|       DORKING 

DATA: 

CCFA95BI 

VERSION:    001    STATUS:      TEST 

SEQ 

LEVEL 

_FI_£LD    NAME 

T_i— CH/DG_qc 

CUR 

VAL/cgHHENT/REpEF/qEP    ON/COPY 

000300 
000301 

I 

I 

WK-IN-LNAHE-LEN 
KK-IN-FNAHE-LEN 

N 

N 

3 

3 

: 

000303 
000305 
000306 

1 

1 
1 

UK-LENGTH 

WK-BLANK-POS 

MK-BLANK-POS-1 

N 

N 
N 

3 
2 

2 

000307 
000308 

0003(19 

I 

1 
1 
X 
1 
1 

WK-START-PQS 

WK-INPUT-LEN 
WK-LASTNAME 

N 
N 
X 

2 
2 
15 

)■ 

000310 
000311 
C00312 

WK-IN-LNAKE 
HK-IN-FNAHE 
WC-PERCENT-POS 

V 
V 
N 

15 

12 

2 

) 

OOOSOO 
000501 
000502 

1 

2 

ERROR-HSG-LINE 
EH-DSN8 

X 

4 

■0SN8" 

:■ 

00*900 

004 901 
.     00*902 

.  2  ■ 

2 

EH-HSGCOO£ 
EH-TEXT   . 

:    X 
X 

*  :■  - 

•    80 

)> 

00*903 
00490* 
005000 

1 
I 

RPT-99-BLANKS 

RPT-DETAIL-LINE 

X 

99 

]' 

005100 
005101 
005200 

2 
2 
2 

ftPT-LNAMG 

RPT-FILLER-1 

RPT-FNAHE 

X 
X 
X 

15 

■  2 
12 

2 

005201 
005300 
005301 

2 
2 
2 

RPT-FILLER-2 

RPT-HIODLEINIT 

RPT-FILLER-3 

X 

X 

X 

1 
1 

7 

J 

005*00 
005*01 
005500 

2 

2 

RPT-PHONENO 

RPT-FILLER-* 

RPT-EHPNO 

X 

X 
X 

.      * 
3 
6 

l 

005501 
005600 
005601 

2 
2 

RPT-FILLER-5 

RPT-UORKDEPT 
RPT-FILLER-6 

X 
X 
X 

3 

3 
2 

i 

005700 
LEGEND: 

2 

RPT-OEPTNAHE 

X 

36 

■ 

T    (FIELD    TYP 
I     (INTERNAL 

E):       X=ALPHANUMERIC»    N=NUHERIC.    U=UNS 

V=VARIABL£.    D=DATE 
NUMERIC    TYPE):       BLANK   OR    P=PACKEO*     1= 
CTERS/OIGITS):       NUMBER   OF    CHARACTERS* 
INITION*    OEP    0N=    OEPENOING    ON 

[GNEOf    C=COND.NANE*    F=FLAG« 
EONED,    B=BINARY 

J 

CH/06 
R£0EF= 

CHARA 
REOEf 

INTEGERS*    OR    INTEGERS. DECIMALS 

] 

J 

: 

• 

j 

: 

&  2Q 

Jf 


i 

PGM 
"I       REPO 

CCFA95BI          001         TEST            SYS:SID            FEBRUARY    25, 

19H7 

18:29:01 

) 

*T:                       CCFA90R1                     VERSION:    001    STATUS: 
IDENTIFICATION: 

TEST 

. 

; 

REPORT    NAME       CCFA9CR1 

; 

CREATED                            02/12/87 

LAST    HODIFIEO            02/21/87    AT    lit*? 

BY   GARTEN 

\ 

SHORT    DESCRIPTION 
DESCRIPTION: 

j 

--■<■:. 

• 

: 

: 

■■  ■■_;.■.-. 

!  ; 

LINES    PER    PACE   ON    PRINTOUT 

REPORT    WIDTH 

SPACING    BETWEEN    LINES 

060 

132 

2 

(1    THRU   250) 
(40    THRU    230) 
(1    THRU    3> 

V     1 

SPAIING  BfclUEEN   COLUMNS 

SUMMARIES    ONLY 

COLUMN    HEADINGS    OESIREO 

02 

N 
Y 

<V=YES»N=NO) 
«Y=YES,N=NO) 

p 

COLUMN    HEADINGS    INDICATION 
CONTROL    BREAK    HEADING 
CONTROL    BREAK    FOOTING 

N 
N 
Y 
N 
S      N 
N 
1 

<U=UN0ERSCORt:»N=N0NE»O=0ASHES) 

(Y=YES,N=NO) 

(Y=VES»N=NO) 

» 

GROUP   CONTINUATION  AT  TOP   OF   PAGE 
ANNOTATED    COUNT    IN    CONTROL    FOOTING 
REPORT    FINAL    SUMMARY   TITLE 

CY^YESTNWO) 

<Y=YES,N=NC) 
<Y*YES,N=NO) 

1 

SPACING    BEFORE    SUMMARY 
TITIF 

(1    THRU   9    *    LINES, P=NEW    PAGE) 

1 

DATE 

POSITION                               NO         <NO=NQNE 
TR»TOP 

.    BR  =  B( 
RIGHT t 

T. RIGHT,    BL=BOT.LEFT,    BC=BOT.CTR., 
TL=TOP   LEFT,    TC=TOP  CENTER) 

: 

; 

FORMAT                                     MM/DD/YY 
PAGE    NUMBERS 

j 

POSITION                            NO 

FORMAT                                     H            (0=OIGITS    ONLY 

H=WITH   HYPHENS,    f=    PAGE                    NNN) 

) 

■ 

PAGE    HEADING 

POSITION                               C            CC-CENTE 

R,    L-L 

EFT    JUSTIFY,    R-RIGHT    JUSTIFY) 

J 

-:>, 

) 

« 

6- 

21 

1 

;l 

PGM       CCFA95BI  001  TfcST  SYS:  HO  FEBRUARY    21,     19*7  1 .1:29:01 


CCFA90R1 
.JLAGE_  HEADING: 


VERSIUN:  001  STATUS:   TEST 


FIELO  NAME,  LITERAL,  FUNCTION. 
OR  ARITHMETIC  EXPRESSION 


EDIT  PATTERN 


000300 
000400 
000401 


TELEPHONE  DIRECTORY' 


000600 
000700 
Q00800 


000900 
001000 
001  LOG 


001101 
00X102 

001103 


001200 
001201 
001300 


LAST  NAME' 
FIRST  NAME' 
INITIAL' 

PHONE* 

EMPLOYEE* 

WORK* 


'  NU  HBE  R  •_ 
'NUMBER* 
'OEPT" 

'NAME' 


01 B 
031 


039 
J46 
055 
*  060 
L01 
039 


046 
055 
060 


SEQ=SEQUENC£    NUMBER 
WIDTH:     0-99=USER    DEFINED 
TAB:    +NN=RELATIVE    SPACING, 


n^TOTl_OF   N£TT~PAG£ 


NNN=ASSOLUTE    SPACING,    LNN=VERTICAL    SPACING, 


6-22 
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3  PGM       CCFA953I  001  TEST  SYSHIU  FEBRUARY    25»    1987  18:29:01 

CCFA90RI  "VERSION:    001    STATUS:       TEST 


REPORT: 


»l 


DETAIL^ 


FIELD    NAME.    LITERAL, 
FUNCTION,    OR 
ARITHMETIC    EXPRESSION 


SORT  BR^AIC 

L_A  LSI 

V  /  V  K  a 

L   D  L    P    0 


001401    RPT-DETAIL-LIJ1E 


FUNCTION  COLUMN 
T  M  M  A  H  H_  T 
0  A  IV  "0  10  A 
T    X   N    G      G    TH   B 

U    99" 


EDIT 

PATTERN 


■J  r 


-CVCiLtsecrTiBSJdR.  :-MUMM 

A/D=ASCENOING/OESCENQINGS   A=ASC£NOING,  D=OESCENOING 

SKP=SKIP»  P»TCP  Of  NEK  PAGEi D-9=NUHEER  OF  LINES 

IND=INDICATION:  b~HiTTEO/G=NEW  GROUP.   N=NONE»  R=REPEA 
TOT=TOTAL=  A=ANNOTATEO.  S=SINGLE  SUHNARY  LINE 
HAX=NAJIHUH:  A=ANNOTATEO,  S=S INGLE  SUNMART  LINE 


~H  IK=KI«Ii(0M5_»i»SN0TiTEI)~SiSTNGCE"S0MH»liy  LINE 
AVG-AVERAGE:  A=ANNOTATED,  S=SINGLE  SUHNART  LINE 
HOGsHEAOINS;  N=NONEt  U«US£R  DEFINEO __ 


■  I 


***  REPORT  INTERNAL  RECORD  SIZE 


6-23 


) 

pr,M 

CCFA95BI 

001         TEST 

SYS:HD            FEBRUARY    25t     1997             16:29:01 

I 

PROCEDURE: 

CCFA95BI 

VERSION:      001      STATUS:      TEST 

!• 

sea 

STATEMENT 

100 

: IDEAL   BATCH    PGM   CCFA956I    -    FOR    MINI-SYSTEM    06M0 

; 

.•  200 

.300 

•  <"•.''.'*  500 

«MA1N»    PROCEDURE 

r 

600 
TOO 
701 

FOR   EACH    MS-CAROIN-U    NO   UPDATE 

SET    RPT-DETAIL-LINE   =    RPT-99-BLANKS 

)' 

.     1*00 
1500 
1600 

00   PROCESS-INPUT 
WHEN  NONE 

&■■ 

!' 

1700 

1800 
1900 

PRODUCE   CCFA90R1 
RELEASE    REPORT    CCFA90R1 
ENDFOR 

-  j 

-     £2000 

•  '.'-aioo 

2300 
2*00 
2500 

:    PROCESS    INPUT   CARD    IMAGES 

'  y, 

«PROCESS-INPUT»    PROCEOURE 

■  1' 

2600 
2700 

i2BOO 

SELECT  FIRST   ACTION 
WHEN    IN-ACTION   =    »L» 

hi 

2900 
3000 
3100 

00    LIST-FUNCTION 
WHEN    IN-ACTION    =    *U* 
DO    PHONE-UPDATE 

J 

l 
3 

; 
i 

•■:.  ■ 

•   320O 
3300 
3400 

WHEN.  OTHER 

MOVE    '0681 •    TO    EH-HSGCODE 

CALL   CCFA95VI    USING   EM-MSGC006   EM-TEXT 

3500 
3600 
3700 

HOVE    ERROR-MSG-LINE    TO    RPT-OETAIL-LINE 
PRODUCE   CCFAV0R1 
RELEASE    REPORT    CCFA90R1 

3B0C 
3900 
40  00 

6N0SEL 
ENOPROC          IFROCESS-INPUT    PROC                               ' 

4100 
4200 
4300 

:    LIST    EMPLOYEES 

"    ■ 

4500 
4600 

«LIST-FUNCTIQN»  PROCEDURE 

4700 

48  00 
4900 

:NQ  LAST   NAME   GIVEN 
IF    IN-LNAME    =    *SPACES 

MOVE    •*•    TO    WK-IN-LNAHE 

:;.- 

J 

5000 
5100 
■5200 

ELSE 

:NULL 
FNOTF 

j 

5300 

6-24 
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TZJi     PGM   CCFA95RI    031    TEST     SYS:  *  ID     FEBRUARY  2  5.  196  7     18:29:01 
^""PROCEDURE:  _   CCFA95BI  ~         VERSION:   001   STATUS:   TEST 


SEQ   STATEMENT 


5*00 
5500" 
5600 

5700 

5800 
5900 
6000  _ 
6100 
6200 

630G 

6*00 

6500 

6600 

68~0O~~ 

6900 

7100 

7200 

7300 

7*00 

"TfcW 

7700 
7600 
SO  00 
3100 

a20o 


:N0    FIRST    NAME    T.IVEN 
IF    IN-FNAME    =    SSPACES 

MOVE    »t*    TO    HK-IN-FNAME 
ELSE__ 

:NULL 
CNQIF 

:L 1ST  ALL  EMPLOYEES 

IF    IN-LNAME   =     •*• 

00   LIST-ALL 

ELSE 

:TRIH    TRAILING    BLANKS    FROM    LAST    NAME 
SET    WK-PERCENT-POS  =    SLENGTH( IN-LNAHEI 

SETHK-rN^UNAHE   =    ITRrMON-tNAHe,RIGKT=»"  •  ) 
SET    WK-PERCENT-POS  =    JLENGTHt WK-IN-LNAME) 

^fRlH~TRAlXTNG"  BLANKS    FRW~FIRST~  NAME 
SET    WK-IN-FNAME    =    STRIM( IN-FNAHE»RIGHT=»     •) 

:COUNT~t"ST~ALC    WENEEBiS    1    70   KNOW    WHAT    TO    00 
MOVE    0    TO    WK-PERCENT-POS 
SET    WK-PERCENT-POS    =    *INQEX(T.N-LNAHEt SEARCH='*' ) 

IF    WK-PERCENT-POS    >    0 

:IF    NO    X*S,    LIST    SPECIFIC    NAMES 
:EL5E    LIST    GENERIC    NAH?S ~~" 


~VSWT 

d*on 

S500 
8600 
8700 

38  00  END IF 
8900  ENOPROC 
9000 

9200       :     LIST    ALL    EMPLOYEES 
9300       : 

9*00    «LIST-ALL>>    PROCEOURE 


DO    LIST-GENERIC 
ELSE 

"DO    LIST-SPECIFIC 
ENDIF 

JLIST-FUNCTION 


^9500" 

9600 

9700 

9800^ 

9900 

10000 

10100" 

10200 

10300 

10*00 


FOR    EACH    MS-EMPLOYEE-2    NO    UPOATE 
OROEREO    BY    WORKOEPT    EMPNO 


SET    RPT-LNAME 
SET    RPT-FNAME 
SET    RPT-HIODLEINIT 
SET   RPT~-PH0NEN3 
SET    RPT-EMPNO 
SET    RPT-WORKOEPT 


LASTNAME 

FIP.STNKE 

MIDINIT 

PHONENO 

EMPNO 

WORKOEPT 


6-25 


-f 


t>GM    tcf-_<r>nr 


FESitUAfiV    25.     I93T 


PROCEDURE: 


VERSION:   001   STATUS: 


% 


SEQ       STATEMENT 
10500 


10600 
lOTOO 

_  ______  _io?po_ 

10900 
1 1000 

_i_Ll_9_°_ 

11200 
11300 

_  11*00 

11500 
11600 

11700 

rrsGo- 

11900 
12000 


FOR    EACH    M3-}cPARJMENr-2_NO   UPDAV; 
"WHERE    HS-6_PARTMENT-Z^D_PTN0 
MS-_rtPL0VEe-2.M0RK0EPT 
_SET    RPT-OEPTNAME    =    DEP_TNAH£__ 
PRODUCE    CCFA90R1 
WrfEN    NONE 

SET    RPT-DETAIL-LINg    =  

"•NO   DEPARTMENT   RECORDS    FOUNO 
PRODUCE    CCFA90R1 
c!NDFCR  _ 


CONTACT    PROGRAMME' 


WHEN   NONE 

MOVE    •0081*     TO    EH-MSGCODE 
"~~CAL_    C_FA95Vi    USING    EM-MSC-ODE    EM-TeTT 

HOVE    ERROR-HSC-HNE    TO    RPT-D6TAIL--INE 
PRODUCE   CCFA90R1 


12100 
12200 
12300 
~T-4"00~  END  PRO. 
12500 
12600 


ENOFOR 

RELEASE    REPORT    CCFA90R1 


:    LIST    EMPLOYEES    GIVEN    GENERIC    KEY 


12700 
12800 
12900 

T_CkT(T< <  _ -  S 7-G E N£ R  _t>>    P R OC  EDUR 6 
13100  -FIND    OUT    IF    HAVE    LEADING    OR    TRAILING    t 


13300 
13*00 
13500 

13700 

13800 

13900  ENDPROC 

14000 

14100 

14300 
14400 
14500 

14600  «NAME-BEGIN-WITH»  PROCEDURE 

14700  _    :IE      JOX  _         __ 

"14800         SET    WK-IN-LNAHE-LEN    = iLENGTH(WK-IN-LNAME)    -1 
14900  SET    WK-IN-LNAME    =     «SUBSTR(WK-I N-LNAHE»START*1 • 

15000  LENGTH=WK-IN-LNAME-LEN) 

15300  " 


IF    HK-PERCENT-POS    >    I 
00    NAME-BfcGIN-WITH 

ELSE 

DO"  NAME-ENO-WiTH 

ENDIF 


LIST  _MPLOYEES  WHOSE  LASTNAM.  BEGINS  MITH. 
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HGM      CCF&949]  OCl  TEST  SYS:*ID  FtORUARY    Zb,     1967  13:29:01 


VERSION:       001       STATUS:       TEST 


SEQ      STATEMENT 


IS*  00 

15500 

15600 

15700_ 

15800 

159  00 

16000 

16100 

16200 

16300 


FOR    EACH    MS-EMPLOYEE-.*    00    UPDATE  _  _       _ 

WHERE    MS-EMPLOYEES. LASTNAME    >=    WK-IM-LNAME 
ORDERED    BY    WORKDEPT    EKPNO 

"   "TF1lTUBTTRTLASTNAME",STA"RT^rt'LENGTH="HK-rN-LNAHE-LEN)"   =    WK-IN-LNAME 


>;- 

!   J" 

!  1 " 

"I     £ 


16*00 
16500 
16600 


SET  RPT-LNAHE 

SET  RPT-FNAME 

SET  RPT^-HIODLEINIT 

SET  RPT-PHONENO 

SET  RPT-EHPNO  

SET  RPT- WORKDEPT 


LASTNAME 
=  FIRSTNHE 
=  HrOlNIT 
=  PbONENO 
=  JIHPNU 
■    WORKDEPT 


16700" 
16800 

16900 


FOR    FIRST    KS-DEPARTMENT-2    NO   UPOATE 

ftKERE"  MS-D~EPARTHENT-2~.DEP7N0~  = 

MS-EHPLOVEE-2. WORKDEPT 


17000 
17100 
17200 


173  00" 

17*00 

17500 


"  ~T760C 
17700 
17800 

~r7900" 
18000 
181.00 
18200 
183  00 
13*00 
~r8500 
18600 
18700 
18800 
18900 
19000 

— r9ioo" 

19200 
19300 
19*00 
197O0 
19900 
"20000" 
20100 
202  00 


SET    RPT-DEPTNAHE    =    OEPTNAHE 
PRODUCE    CCFA90R1 
WHEN    NONE 

$ET~RPT~DETAIL-*INE    = 

•NO    DEPARTMENT    RECORDS    FOUNO 
PRODUCE    CCFA90JU 
"  ENDFOR  :FOR"EACH    MS-DEPARTMcNT-2 


ENOIF 


CONTACT  PROGRAMMER' 


WH67TN0NE 

.MOVE    '0091 •    TO    EM-MS&COOE 
CALL    CCFA95VI    USING    EH-MSGCOOE    EM-TEXT 
H0V6"ERR0R-MSG-LiNE    TO    RPT-DETA IL-L INE 
PRODUCE    CCFA9CR1 
ENDFOR if°?__EAC_H    HS~EM_PL0YEJr2 

RELEASE    REPORT    CCFA90R1 
ENOPROC  :NAHE-8EGrN-HITH 


LIST    EMPLOYEES    WHOSE    LASTNAME    ENOS    WITH 


«NAHE-ENO-WITH»    PROCEDURE 

SET    WK-IN-LNAME-LEN    =     JLENGTH< NK-IN-LHAHE >    -    1 
SET    WK-IN-LNAHE  =     *SUBSTR( WK-IN-LNAHE,START=2, 
LENGTH=WK-IN-LNAHE-LEN) 


FOR    EACH    MS-EMPLQYEE-2    NO    UPOATE 


20300 


WHERE    MS-EMPLdYEE-2.LASTNAME    >=    WK-IN-LNAME 

6-27 
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PGM      CC^A95BI          GOl          TtST  SVSlStO            FEBRUARY    25.     1987             18:29:01 

BI^  VERSION:      001      STATUSt'     T8ST 

ji'~  S£0      STAT€*t6NT 

«.                                                               20*00  ORDERED    3Y    WORKDEPT    EMPNO_ 

;*. losoO  SET    Hk-aLANK-POS-l       =    *INbEX(LASTNAME,SEARCH=*     •) 

j>]                                                               Z1000  SET    WK-START-POS            =    WK-BLANK-POS-1      -       3 

|«|  _213P0  _IF    *SUBSTR(HS-EMPL0YEE-2,LASJTNAME._STARTj=HK-STWU-P0S. 

^3                                                               21*00  LENGTH=3)    =    WK-IN-LNANE 
j  ■'                                                               2150C 

21&0G  SET    RPT-LNAM£_ =    LASTNAME .   ._ 

-- 2jyg0  set  rpt-fname                        =   firstnhe 

(mi                                                               21800  SET    RPT-MIDOLEINIT               =    MIOINIT 

„; 21900  SET    RPT-?HONSNO =    PHONENO       

fcj                                                         22000  SETRPT-EHPNO                          =EMPNO 

{„!                                                               22100  SET    RPT-WORKDEPT                    =    WORKDEPT 

'i*  222CC  ^_ 

;00 FOR    EACH    MS-~0EPARTHENT^2~N0   UPDATE 

22*00  HHERE    HS-OEPARTMENT-2.DEPTN0    = 

22500 JIS^E MP L0VEE-t2 -HORKDEPT 

22600"  "  SET    RPT-DEPTNAME    =    OEPTNAME 

22700  PRODUCE    CCFA90RI 

22800  WHEN    NONE 


"~2Z~90d  SET"  RPT-DETAIL-LINE    = 

23000  'NO    DEPARTMENT    RECORDS    FOUND   -    CONTACT    PROGRAMMER* 

2310C  PRODUCE    CCFA90R1 


v 


23200  ENOFOR          :FOR    EACH    MS-DEPARTHENT-2 

»|                                                               23300  ENDIF 

|   TJ  -  23*00  __ __„ 

Z5500 WHEN  ~NWE 

2360C  MOVE    •0081*     TO    ES-MSGCOOE 

23700  CALL    CCFA95VI    USING    EM-MSGCOOE    EM-TEXT  

23800  "                MOVE    ERROR-MSG-LINE    TJ    RPT-DETAiL-LINE 

23900  PRuDUCl    CLFA90RI 

2*000 _. 

~2*T00  ENOFOR'       :FOR   EACH   MS-EMPLOYEE-2 
2*200 

2*300  RELEASE    REPORT^  CCFA90R1_ . 

2*500  ENDPROC       :NAME-END-WlTH 
2*600 

2*700  : ~~~~r — ~ — ~'- — _ 

~ZWW~TXISI    EMPLOYEES    HATCHINGSPEClFiC    NAME    PROVIDED 

2*900  : 

25000  «LIST-SPECIFIC»    PROCEDURE     _                                                           _ 
25001 

25C0*  IF     sSUBSTR(WK-IN-FNAM5,START=l,LeNGTH=l)    =     »f     DR     SSPACES 

25005  :USE    JUST    THE    LAST    NAME.    NOT    THE    FIRST_ 
"25006 

2500T  FOR    EACH    MS-EMPLOYEE-2    NO   UPDATE 

25008  OROEREO    BY    HORKDEPT    EMPNO        _  

25009  "  WHERE    MS-EMPLOYEE-2 .LASTNAME    =    WK-IN-LNAHE 

6-28 


i- 


FEMUAft*    25 


001       STATUS:       TEST 


SET    RPT-LNAME 
SET    RPT-FNANE 
SET    RPT-KIODLEINIT 
SET    RPT-PHONENO 
SET    RPT-EMPNO 
SET    RPT-WORKDEPT 


LA5TNAHE 
FIRSTNME 
MIOINIT 
PHONENO 

£MPNO 
WORKDEPT 


FDR    EACH   MS-OEPARTHENT-2    NU    UPDATE 

WHERE    HS-OEPARTHENT-<i.PEPTNO    = 

MS-EMPLbYEE-2.U0RK0Epf 
SET    RPT-DEPTNAME    =    OEPTNAME 
PRODUCE    CCFATDRl 
WHEN    NONE 

SET    RPT-DETAIL-LINE    = 

•NOJDEPARTKENT    RECORDS    FOUND   ■ 
PRODUCE   CCFA90R1 


CONTACT    PROGRAMMER* 


ENOFOR  :FOR    EACH    MS-j)EPARrHENT-2 

WHEN    NONE 

MOVE  •0081*  TO  EH-MSGCODE 

CALL  CCFA95VI  USING  EM-MSGCODE  EM-TEXT 
MOVE  F.RROR-MSG-LIME  TO  RPT-DETAIL-LINE 
PRODUCE    CCFA90RI 

ENDFOR         :FOR    EACH   MS- EMPLOYEE- 2 


ELSE 

FOR  EACH  HS-EMPLUt'EE-2  NO  UPDATE 
ORDERED  8Y  WORKDEPT  EHPNO 

WHERE    MS-EMPL0VEE-2iLASTNAHE    =    IN-LNAHE    AND 
MS-EHPLOYEE-2. FIRSTNME    =    IN-FNAME 


SET    RPT-LNAME 
SET    RPT-FNAME 
SET    RPT-MIODLEINIT 
SET    RPT-PHONENO 
SET    RPT-EMPNO 
SET    RPT-WORKDEPT 


=  LASTNAME 
=  FIRSTNME 
=  MIDINIT 
"="  PHONENO" 
=  EMPNO 
=    WORKDEPT 


FOR    EACH    MS-DEPARTMENT-2    NO    UPDATE 
WHERE    MS-0EPARTMENT-2.0EPTN0    = 
~HS~-EMPL0YEE-2. WORKDEPT 
SET    RPT-OEPTNAME    =    DEPTNAME 
PRODUCE    CCFA90R1 


WHEN    NONE 


6-29. 
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PGM      C^A95BI 


f.l 


PEttRUARY    25f     1987 


VERSION:       001       STATUS:       TEST 


!    J' 


L 


j- 


SEQ   STATEMENT 


2T00O 
27100" 
27200 
27300 


27400 
27500 
27600 


27700 
2  7800 
27900 


SET    RPT-DETAIL-LINE    =_ 

•NO    DEPARTMENT    RECORDS    FOUND 
PRODUCE    CCFA90R1 

ENDTOR  '     SPT3R   EACH  N5H>EPARTMENT^2~ 


WHEN    NONE  

MOVE    «008I»    TO"   EH-MSGCODE 

CALL   CCFA95VI    USING    EM-HSGCOQE    EM-TEX 7 

M0VE_ERR0R-MSG-LIN6    TOJt?T-0<:TAIL^LIN  ■ 


CDNTACT  PROGRAMMER* 


iBOOO 
28100 
23101 
26200 
28300 
28*00 


PROOUCE    CCFA90R1 
ENOFOR          :FCR    EACH    MS-EMPLOYEE-2 
END IF  

RELEASE    REPORT    CCFA90RI 
INDPROC      ILIST-SPECIFIC __ 


28500 
28600 
28700 


28800" 
28900 
29000 
29 1 00 
29200 
29300 


:    UPDATE    EMPLOYEE    PHONE    NUMBERS 


«PHaNE-UPOATE»_  PROCEOURE 


twtot 

29500 
29600 

"29700 
2V900 
29900 

"3"0"0"00 
30100 
30200 

'30300 
30*00 
30500 
30600 
30700 
30800 
30900 
31000 
31100 

"31200 
31300 
31*00 
31500 


FOR    EACH    MS-EMPLOYEE-2 

OROERED    BY    WORKDEPT    EHPNO_ 
"       WHERE    MS-EMPL0"YIE^2.EHPN0    =    IN-EMPNO 
SET    RPT-PHONGNO  =    •*>265" 

MOVE     •0041'    TO    £H-MSGCQOE 
CALL~CCFA95VI    USING    EM-HSGCOOE    EM-TEXT 
HOVE    ERROR-MSG-LINE    TO    RPT-GcTAIL-LINE 

PRODUCE    CCFA90RI ___ 

"WH?N   NONE 

MOVE    '0681 •    TO    EM-HSGC006 
CALL    CCFA95VI    USING    EM-MSGCODE    EM-TEXT 
HOVE    ERROR-MSG-LINE    TO    RPT-OETA IL-LINE 
PRODUCE    CCFA90R1 
END FOR 

RELEASE    REPORT    CCFA90RI 

iNDPROC  :  PHONE-UP  DA  TE 


ERROR   PROCEDURE    TRAPS    ANO    PRINTS    ERRORS    NOT    TRAPPED    ABOVE 


<<ERROR»    PROCEDURE 

CALL    CCFA99VI    USING     INPUT 


6-30 
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LJ  PGM      CCF495dl  001  TEST 

H 

PROCEDURE:  CCFA95SI 

'I 


I      J " 


3YS:U0  FEBRUARY    Z5»    1987  18:29:01 


VERSION:      001       STATUS:      TEST 


ScQ      STATEMENT 

31600  QUITRUN 

31700      fcNOPROC     "    :ERROR 
31800 
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PGM   CCFA95S1    OOt    T£5T     SYS:* TO     FEBRUARY  25,  1987 


LSI29tQl 


COMPILER       DIAGNOSTICS      AND      SUMMARY 


I'  PROGRAM    HAS    3E£N    SUCCESSFULLY    COMPILED 

NO    ERROR- HESS"AiTE{s'r""FLAG5rD~~iN    THIS    COMPILATION 
}'  NO   WARNING   MESSAGE(S)    FLAfcGEO    IN    THIS    COMPILATION 

NO   ADVISORY    MESSAGE(S)    FLAGGED.   IN    THIS    COMPILATION. 


COMPILED    PROGRAM    STATISTICS: 


-  NUMBER  OF  SHAREABLE 

-  LENG TH  OF  SHAREABLE 

-  NUMBER  OF  NGN-SHAREABLE 

-  LENGTH  OF  NON-SHAREABLE 


MEMBERS  OF    THE    PROGRAM 

PORTIONS  UP    THE_PROGRAM _ 

MEMBERS  OF    THE    PROGRAM 

PORTIONS  9F    THE    PROGRAM 


T.OIZ 

001 
5,812 


I* 
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HAJOR   bvqt™  „   SELECTING  AN  EMPLOYEE   TO   DISPLAY 

UJ-tTJL  '    °  ORGANIZATION 

JSI™! D  DISPLAY    <SHOW) 

0BJECT    EM  EMEPLOYEE 

DA?AC".CRITERlfl    "'    EN  EMPLOYEE   NAME 


NO         D/ID         DEPARTMENT   NAME 


SPIFFY   COMPUTER    SERVICE   DIV. 

PLANNING 

INFORMATION  CENTER 

SUPPORT  SERVICES 

MANUFACTURING 

ADMINISTRATION  SYSTEMS 

OPERATIONS 

SOFTWARE  SUPPORT 

SPIFFY  COMPUTER  SERVICE  DIV. 

SPIFFY  COMPUTER  SERVICE  DIV. 

INFORMATION  CENTER 


PFKi  02-RESEND   03-END   OS-NEXT 


01 

AOO 

02 

60! 

03 

C01 

04 

E01 

05 

Dll 

06 

D21 

07 

Ell 

08 

E21 

09 

AOO 

10 

AOO 

11 

C01 

E/ID 

OOOOIO 
O0OO2O 
000030 
000030 
000060 
O0OO70 
000090 
OOOIOO 
OO0110 
000120 
OOO130 


EMPLOYEE  NAME 

CI  HASS 
ML  THOMPSON 
SA  KUAN 
JB  GEYER 
IF  STERN 
ED  PULASKI 
EW  HENDERSON 
TQ  SPENSER 
VG  LUCCHES1 
S   O'CONNELL 
DM  OUINTANA 


MAJOR  SYSTEM >  o 

ACTION fl 

OBJECT EM 

SEARCH  CRITERIA  ..I  EN 

DATA 1  000099 


EMPLOYEE  ADD 


EMPLOYEE 


ID 

FIRST  NAME 
MIDDLE  INITIAL 
LAST  NAME 
WORK  DEPT  IE 
PHONE  NUMBER 


PFKi  02-RESEND   03-END   08-NEXT 


ADR  •  Online  program  screens 
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EMPLOYEE  ERASE 


MAJOR  SYSTEM I  O 

ACTION E 

OBJECT EM 

SEARCH  CRITERIA  . . I  EN 

DATA 000030 


ID 

000030 

FIRST  NAME 

JANE 

MIDDLE  INITIAL 

E 

LAST  NAME 

DOE 

WORK  DEPT  ID 

E21 

PHONE  NUMBER 

OOOO 

PFKl  02-RESEND   03-END 


MAJOR  8YSTEM t  O 

ACTION •  U 

OBJECT EM 

SEARCH  CRITERIA  . . I  EN 
DATA OOO030 


EMPLOYEE  UPDATE 


ID 

000030 

FIRST  NAME 

JANE 

MIDDLE  INITIAL 

E 

LAST  NAME 

DOE 

NORK  DEPT  ID 

E21 

PHONE  NUMBER 

OOOO 

ADR  -  Online  program  screens 
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PGM   CCFA92CI    001    T£ST 


IDENTIFICATION:  CCFA92CI 


MARCH    Ht     1987 


VERSION:    001    STATUS:       TEST 


PROGRAM    CCFA92CI 


LAST    MODIFIED  03/04/87    AT    18:43 

LAST    COMPILED  03/04/87    AT    13=27 


_flY_  GARTEN_ 
BY  GARTEN 


RUN  STATUS:  PRIVATE 

SHORT  DESCRIPTION:   

LANGUAGE:   IDEAL     TARGET  DATE 


ACTUAL  DATE 


DESCRIPTION: 


!  ;* 


J" 
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PGM   CCF4  92CI    001    TEST     SYS:  1 10     MARCH  <.,  19b 7         18:^:00 


'■!         RESOURCES:                CCFA92CI                     VERSION: 

001    STATUS:      TEST 
PA*LEL, VER   _  _ 

FA9Z01I       0001 

REPORT 

*!                                                         DATAVIEW                     VER 

VER               PROGRAM      VER         SYS 

a;                                                         MS-OEPARTHENT-U    0002 

CCFA99VI    0005      _ 

1  ] 

i  3 

! 

?l                                                         HS-EMPL0YEE-2-U    0008 

;; 

;: 

" '  ■"  y 

I 

" 

JO 

,e 

IB 

M 

: 

n 

, 

* 

6-36 

r  / 

C 

PGM   CCFA9.--CI 


MS-DEPARTHENT-U  VERSION:  002  STATUS: 
OATAVIEW:  MS-OEPARTHENT-U 


LEGEND: 


SEQ    LEVEL    FIELD    NAME  T     I    CH/DG    OCCUR    K    VALUE/REOEF/OEP    ON 

CATALOGED    02/16/37    1»:02  OATAC OH/OB   UPD=YES    0610=010        

1  1  HS-DEPARTNENT-U 

2  2  ADMRDEPT  X  3  K 

3       2      ,         OEPTNAME X  36 ■- 

*      2  DEPTNO  X  3  K 

5      2  MGRNO  X  6  K 

SEQ=SEQU£NCE    NUMBER 

T    ( FIELD  TYPE):       X^ALPHANU.'iERIC*    N'NUMERIC .    U=UNSISNcP    t    C-COHP.    NAME . 
V=VARIABLE»    D=OATE 

I     (INTERNAL    NUMERIC    TYPE):       P=PACKEDt    2=Z0NED,    B=BINARY 

CH/OG    (CHARACTERS/DIGITS):       NUMBER    OF    CHARACTERS,     INTEGERS,    OR    INT.OEC 
K(KEY    USAGE):       K=HHOLE    KEY,    P-PARTIAL    KEY.    (HIGH    ORDER    POSITION) 
REDEF=REOEFINITION,    DEP  0N=DEP6N0ING   ON       **■/. 
■::.   :.",  .  :.  .'■_!'   -  ; ■      "-  ■  y.  ■:<!$:'*  ■yJ'w--     .    .    -      -   ■■;■■-  ■■    _____ 
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I    i" 


MARCH  <t»  1987 


MS-EMPL0YEE-2-U  VERSION:  008  STATUS: 
DATAVIEW:  HS-EMPL0YEE-2-U 


SEQ  LEVEL  FIELD  NAME 

CATAL06E0  02/20/37  08:27 

11"  HS-EHPL0YEE-2-U 

2  2      HORKOEPT 

3  2      EHPNO    ___  ___ 

4-   2      FULLNAME 

5  -      LASTNAME 

6  3 FIRSTNME __ 

7  3~     HIOXNIT 
S   2     PHONE NO 


T  I  CH/DS  OCCUR  K  VALUE/REQEF/UEP  ON 
DATACOM/OB  UPO=Y£S  0310=010 


!    j« 


SEQ=SEQUENCE    NUMBER 

T    (FIELD    TYPE):       X=ALPHANUMERIC» 


N=NUHERIC,    U=UNSIGNED    *    C=CONO.    NAME. 


=V AR I ABLE.    D-DAT E 
I    (INTERNAL    NUMERIC    TYPE):       P=PACKED,    _=Z0N60,    B=BINARY 

CH/DG    (CHARACTERS/DIGITS):       NUMBER   OF   CHARACTERS.    INTEGERS.    OR    INT. DEC 
K     (KEY   USAGE):       K=HHOLE    KEY,     P=PARTIAL    KEY    (HIGH   ORDER    POSITION) 
REOEF=REOEFINITION,    OEP    ON=DEPENDING   ON 


6-3E 


■r 


FGM   CCFA^CI    001    r=ST     SYS: lid     MARCH  <t«  198  7         181*4200 


*]    PANEL:     ™    FA9201I       '       VERSION:  001  STATUS:   TEST 

IDENTIFICATION: ___    

PANEL  NAME  FA9201I 


LAST  MODIFIED     03/04/87  AT  18:Z1 
RUN  STATUS  PRIVATE 1 


SHORT  DESCRIPTION 
DESCRIPTION: 


J 


> 


.    .    .■■  ■ '    -   - '. j 
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PGK       CCPA92CI  001  TEST 


MARCH    <tt     19B7 


VERSION:    001    STATUS:       TEST 


FACSIMILE; ^__ 

(....+  ....  I. ••.  +  ...  .2..  ••-*- 3.... 

I  SELECTING  AN  EMPLOYEE  TO  DISPLAY 
I  MAJOR  SYSTEM  . 
t  ACTION  .... 
I  OBJECT  .  •  •  • 
I  SEARCH  C RI TER I A 


I  DATA 

I 

I 


" 


I  PFK:  02=RESEND  03=END 
!....♦. ...I.. ...... .2... 


_ 
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r~ 


PGM   CGf=-A«CI    001    TEST     SYSiilD     SARCH  <►»  19dT 


FA9201I  VERSION:  001  STATUS;   TEST 

LAYOUT^. _ 

....... ..I. ...+. ...2.. ....... 3. ...+.. ..* 

-^SELECTING    AN    EMPLOYEE    TO    DISPLAY; 

_1 

J-.HAJORSYSTEH  .  . 

12 

|  -.ACTION 


;  1 


i'H 


I -.SEARCH  CRITERIA. 
Ill 
-■DATA  ...... 





-.PFKi  OZ=RESENO  03  =  END-. 


_£_. 


ft 

: 

L__ i __ 


.5. ...+... .6.. ..+... .7.. ..+.,. .81 


6-41 


I 


L  ... 

q 


PGH   CCFA92CI 


001 


FLsr 


FA9201I 
.MELO  SUMMARY  TA8LE: 

SEQ  LV  FIELD  NAME 


VERSION:  001  STATUS:   TEST 


T  LEN   IN. DP  OCC  COMMENTS 


1  2 

2  2 

3  2 


] 

j-j; 


*  2  MAJSYS-MSG 

5  2 

6  2  ACTION   

7  2  ACTION-MSG 

8  2 

9  2  UBJECT 


10  2   OBJECT-MSG 

11  2 

12  2   SEARCH 


13  2   SEARCH-hSG 

14  2 

15  2      USER-INPUT 


SELECTING  AN  EMPLOYEE 
MAJOR  SYSTEM  .  .  .: 


52 
19 


SEARCH  CRITERIA.  -: 


MSGLINE 
COLUMN-HEAOS 


PSL 
PSH 


" POL-HEADER 
PDL-INPUT 


22   2       PFK-MSG 


P5L 

UAL 
_PSL 

"   PSL  " 


PFK:    02=RESEN0   03_=END_ 


SEQ=S~E^U~E*CT~NUM  B  EfT 
ATTR=SCR£EN    ATTRIBUTES: 


U=UNPKOT 

p=prot 

S*$KIP 


H=KIGHLI6HT 
I=INVISI8LE 
L=LOW-LIGHT 


A=32TX   ALPHANUMERIC 

NQ27X   NUMERIC 

E*ENSURE    INPUT 
C=CURSOR 


T=FIELO    TYPE:    X=ALPHANUHERK *    N=NUMERIC 


"i"N."OP^lNrE&ER-PLACES.  DECIMAL-PLACES 
0CC=NUH8ER    OF    OCCURRENCES 


PANEL    PARAMETERS: 


FIELD    SYMBOL    -. 
REPEATING    GROUP    SYMBOL    a 


START 
END 


INPUT  FILL  CHARACTER" 
OUTPUT  FILL  CHARACTER 
NON-OISPLAY  CHARACTER 
"^RROlTFIUir^ CFAR  ACT  E  RT 
CASE  TRANSLATION 


NEW     FIELO  SYMBOL  + 

CEtETrrrEXo" "symbol  « 


"(S=SPACEYT.=LowVAL.  Z=~IEROS»  U*_»  QTMER=iTSELFj" 
(S=SPACE»  L=LOHVAL»  U=_f  OTHER=ITSELF ) 

(S=SPACE,  OTHER=AS_SPECIFIEOJ 

("AS"  SPECIFIED) 
(U=UPPER*  H=MIXED) 


(Y=YES.  N=NO) 
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PGM       CCFA92CI  OOt  TEST 


MARCH    V,     1987 


:i 


FA9201I 

?_ANEL_PAKAMET_ERS:_     

ERROR    HANDLING 


VERSION!    001    STATUS:       TEST 


<N=NONE,    »*FILL    iJ/ERRORFI  LL,    H=HIG4    INTENSITY,) 
(BsaQTH:    H    IF    ILLEGAL    VALUE    L    *    IF    RQO    MISSING) 


PF1=HELP,     PF3=CLA R IFY       Y   

PFT=SCR   -*    PFB=SCR    +         N 
PF10=SCR    TOP.     PF11=SCR    SOT 


"ED IT-RULE    ERROR    PROC         C 
PROCESS    APPL    ON    SCROLL    Y 

HELP    PANEL   NAME 

PREFIX    PANEL    NAME   

SUFFIX    PANEL    NAME    


(V=YES.  N=NO )_ 


(Y=YES,  N=NO) 


lC=CLARIFY  COMMAND,  A=APPLICATION> 
<Y=YES,  N=NO) 

VERSION ' 

VERSION  

VERSION  


|  ;_ 


I-: 


. 
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'pT 


PGM   CCFA92CI    001    TEST     SYS:  ill)     MAftCH  *»  19B7 


I8:t<.:00 


PANEL:  FA9201I 

INPUT  RULSS: 


VERSION":  001  STATUS:   TEST 


I    J" 


SEO    FIELD   NAME 


MAJSYS 
MAJSYS-MSG 


6  ACTION 

7  ACTION-MSG 


9  OBJECT 
10  OBJECT-MSG 


13  SEARCH-HSG 

14  -    . 

15  USER-INPUT 

16  MSGLINE 

17  COLUMN-HEAD S 
18 

19  PDL-HEADER 
_20_  POL-INPUT 
21 
22  PFK-HSG 


MINIMUM 
VALUE 


MAXIMUM 
VALUE 


J    I    C    m    D    M   A    C    N 

S    f    S    0?    S    S   C    0    F 


B    N 

B  N 
S  N 
M 
B  N 
8  N 
_E_N_ 
B    H 

a  n 

a'tj 

B  N  ' 

B  N 

B  N 

B  N 

B  N 

B  N 


L   S   U 

. 

L    S    U 

L    S    U 

L    S    U 

L    S    U 

L    S    U 

SEQ=SEQUENCE    NUMBER 

E/H*ERROR   HANDLING:    N=NONE,    *=FILL    WITH-  *t    H=HI6H    INTENSITY* 

B=BOTH    (H    IF    ILLEGAL    VALUE,    *    IF    REQUIRED    FIELD    MISSING)' 
R/Q=REQUIRED    FIELD:    Y=YESt    N=NO.     C=CON0I TIONAL 
_J/S=JUSTIFIC^nON:    N=NONEt    L=LEFT«    R=RIGHTt    A=ALIGN   BY    DECIMAL    POINT 
l7r^TKFUT~FlLL   CHARACTER: 

S=SPAC£S»    L=LOH-VALUES»    2=ZER0ES.    U=UNDERSCQREF    OTHER=ITSELF 
C_/S=CASE:    U=UPP__ER_CASE»    H=HIAFO    CASE     _ 

MN/DP=HINiMUM    RE3UIREC    DECIMALS"  (.FOR    JUSTI FICAT ION=A  >" " 
D/S=ALLOW    DIGIT    SEPARATOR:     Y=YcS,    N=NO 
H/S=ALLQH    MINUS    SIGN:  Y=YES»    N=NO 


~A7C"=ALL0H   CURRENCY    SYMBOL 
C/0=CHECK    DIGIT:     N=NDNE 
H/F=MUST   FILL:    Y 


y=ye57~N=no 
t=mqdul0  10»  e=modulo  11 

N=NO 
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PGM      CCFA92CI  D01  TEST  SYS:SID  MARCH    A,     19B7 


VERSION:    OOl    STATUS:       TEST 


_3UT?_UT    RyLES: 


3E0  FIELD  NAME 


EDIT  PATTERN 


3  MAJSYS 

*  MAJSYS-MSG 

5 


6  ACTION 

7  ACTION-HSG 


9  OBJECT 
10  OBJECT- 


' 12   SEARCH 
IVSEARCH-HSG 
1A- 


__ : 


U    N    N 

JJJ*_N_ 

S    N    N 

S    N    N 

_U_N   N_ 

sum 

S    N  N 

_U   N  N_ 

S    N  N 

S    N  N 

U    N  N 

"S    N"  N 

S    N  N 


■m- 


\< 


15  USER-INPUT 

16  HSGLINE 

17  COLUHN-HEADS 
18 

19  PDL-HEAOER 

20  POL-INPUT 
21 

22  PFK-MSG 


S  N  N 

S  N  N 

S  N  N 

S  H   N 

U_N  N_ 

S  H    N 

S  N  N 


S£Q=SEQUENCE  NUMBER 
0/F=OUTPUT  FILL  CHARACTER: 

S=SPACES. 
C=COLOR: 

N=NEUTRAL< 

T=TUKQUUISEt    Y=Y6LL0H»    W=WHITE/6LACK 
E/H=EXTENDED    HIGHLIGHTING: 
N=N9NE,_B*BLINKt    R=REVERS_E_  ViPE_Pt_y=UNDERSCORE_ 


L=LOH-VALUES.    2=2EROES.    U=UNDERSCORE,    DTHERM  TSELF 
B=BLUE.     R=REDtP=fJNKj_G=GREEN  
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PGM       CCFA92CI 


MARCH    <.,     1987 


'; 

WORKING 

DATA: 

-.CFA92CI 

VERSION:    001    STATUS 

i      T 
L  L 

X 
X 

:ST 

__SEg_ ..LEV 

00O1O1     1 

000200    1 

zL_. FIELD  _NAME 

CH/OG  JJCCUR    VAL/CCMMENT/RE_Q£F/ptP    ON/COPY 

1 

a 

WK.-FNAME-BYTE-1 
WK-HOLD- INPUT 

1 
50 

,                                                                         , 

■J 

s 

000201  1 

000202  1 

000203  1 

WK-HOLO-NAME 

WK-HOLD-KEY 

WK-READ-KEY 

X 
X 
X 

50 
50 
50 

t                                                                         * 

000204    1 

0C0205    1 
000206    1 

WK-CTR 

WK-PNL-CTR     . 
WK-RESENO-CTR 

N 

N 
N 

2 

: VALUE    1-12    COUNTER 
:NUHERIC       PNL     INOEX 
:RES£ND   COUNTER 

J 

00020T   1 

0  00208    1 
000209    1 

HK-VAL ID-INPUT 

WK-REC-DISP 

WK-GOOO-EDIT 

X 

X 

X 

1 
1 
1 

eF« 

1 

17 

000210  1 

000211  1 

000212  1 
000~2T3~1 

000214  1 

000215  1 

WK-GOOD-COMPARE 

HK-SAVE-EHPNO 

HK-SAVE-LNAME 

Wk-SAVE-FNAHE 

WK-SAVE-MIOINIT 

HK-SAVE- PHONE NO 

X 
X 
X 
X 
X 
X 

1 

6 
12 
15 

1 

4 

3 

!    J 

i' 

000216    1 
000300 
000*00    1 

WK-SAVE-HKOEPT 
HK-OETAIL-LINE 

X 

3 

1 ) 

5 

- 

000500       2 

000600     : 

000700       2 

WK-OL-NDX-ALPN 

WK-FILLER-l 

WK-DL-WORKOEPT 

X 

X 
X 

2 
3 

b 

; 

000800       2 
000900       ■: 
001000       2 

WK-FILLER-2 

WK-OL-OEPTNAME 

WK-FILLER-3 

X 

X 
X 

3 

36 

2 

t 

" 

001100       2 
001200       1 
001300       2 

HK-DL-EHPNO 
WK-FILLER-4 
WK-DL-FULL-NAHE 

X 

X 
X 

6 
3 

18 

» 



LEGEND 

_    I    t FIELD    T 

I     {INTERNA 
CH/OG    <CHA 

YPE>:       X=ALPHANUHERIC»    N=N'JMERIC.    U= 

V=VARTAB~LEt    D=OATE 
L    NUMERIC    TYPE):       BLANK    OR    P=PACKEO 
RACTERS/OIGITS):       NUHBER   OF    CHARACT 
EFINITION,"   OEP    0N=    DEPENDING   ON 

UNSIGNED*    C=CONO.NAHE.    F=FLAG» 

/.-ZONfcO,    B=UINARY 
RSf    INTEGERS,    OR    INTEGERS. DECIMALS  ' 

;; 

REDEF=    RED 

2 

:: 

•j 

6- 
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PGM      CCFA92CI  0C1  TEST  SYS:iID  MARCH    4t     1987 


<  : 
i  ) 

L 
i  - 

j 
• 

1 

1 

VERSION:      001      STATUS:      TEST 

SEQ 


■                                                                        100 

STATEMENT 

7                                                                        200 

•  300 

•  400 

«HAIN»    PROCEDURE 
|    RESET    FA9201I 
SET   WK-HOLD-INPUT           =    *SPACES 

10                                                                       500 

600 

"                                                                        700 

SET    WK-PNL-CTR                     =    0 
SET    WK-CTR                               =    0 
SET    WK-RESEND-CTR             =    0 

11                                                                       800 

.     900 

''-   '■■                                                  1000 

LOOP 

TRANSMIT    FA9201I   REINPUT 

M                                                                      1100 
"                                                                      12  00 
"                                                                     1300 

DO    E0IT-4-LINES-IN 

IF    WK-VALID-INPUT    =    »T* 

"»;■■'                                                                                                                   1  +  00 

*o  ■■'.    ■        -*>*:&;                    &«■  ,  ..          1500 

i6oov 

'*&:               SET    ATTRIBUTE. «P» ON    FA9201I.MA JSV& 
#r.'"                  SET    ATTRIBUTE   ?P*    ON    FA9201I. ACTION 

SET    ATTRIBUTE    *P«    ON    FA9Z01I.09JECT 

"                                                                     1700 
»                                                                     1800 
«                                                                     1900 

SET    ATTRIBUTE    *P'    ON    FA9201I. SEARCH 

DO    LOAD-COL-HEADS 

MOVE    •OB=NEXT"     TO    PFK-MSG 

»':■'.■                                                       2000 
»%v:                                                    2100 
"                                                                     2200 

MOVE    *STRING(*SELECT   AN   EMPLOYEE    FROM   FOLLOWING    LIST    8Y    •, 

•SPECIFYING    THE   LINE   NUMBER')    TO   FA9201I.MSGLINE 
SET    ATTRIBUTE   •HP'    TEMP   ON  FA9201I.MSGLINE 

"                                                                     2300 

2400 

*>                                                                     2500 

SELECT    FIRST    ACTION 
WHEN    tPF2 

"    '                                                               S 2600 

i^                                                                     2700 

2800 

00   RESEND-PNL 
WHEN    SPFS 

DO    DISPLAY-INOEX 

34  2900 

35  3000 
^1                                                                    3100 

WHEN    OTHER 

SET    WK-READ-KEY    =    FA9201 I .USSR-INPUT 
DO    DISPLAY-INDEX 

"    v.                                                                3200 
»           .     "                                                     3300 

«                                                              3400 

ENDS EL 
ELSE 

DO   RESEND-PNL 

*°                                                              3500 
41                                                                     3600 
"                                                                     3700 

ENOIF 
UNTIL    IPF3 

. 

**  '-                                                                  3900 
"    -                                                                4000 

ENOLOOP 

i 

*"                                                                     4100 

4200 

"8                                                                     4300 

ENDPROC       :HAIN 

i 

"  ?■'.'.              ■    '                                     4400 
so  >■;.'.■•;'■  .                                                 |  4500 
"      •                                                        4600 

«EDIT-4-LINES-IN»    PROCEOURE 
MOVE    -T"    TO    WK-VALID-INPUT 

, 

"                                                                     4700 

VALIDATE    USER    'SEARCH   CRITERIA*     INPUT 
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PGM      CCFA^CI 


MARCH    4,      1937 


01         PROCEDURE. 

■1 

■— 

CCFA92CI 

VERSION:      001      STATUS:      TEST 

se"o" 

STATEMENT 

4800 

IF    FA9201I. SEARCH    =    •&!• 

:i 

4900 
5000 
5100 

SET    FA9201I.SEARCH-HS&    «    •EMPLOYEE    ID' 
ELSE 

SET    FA9201I.SEARCH-MSG    =   "INVALID    SEARCH   CRITERIAi    USE    'EI'" 

H 

5200 
5300 
5400 

SET    ATTRIBUTE    'CH'     TEHP    ON    FA9201 I .SEARCH 
MOVE    "F"    TO    WC-VALIO-INPUT 

ENOIF 

) 

5500 
5600 
5T00 

:VALIDA7E    USER    'OBJECT'     INPUT 
IF    FA9201I. OBJECT    =    • EM* 

1 

5800 
5900 
6000 

SET    FA9201I -0BJECT-H3G    =    'EMPLOYEE* 
ELSE 

SET    FA9201I.06JECT-HSG    =    "INVALID    OBJECT*    USE    'EN'" 

3 

i. 

6100 
6200 
6300 

SEi    ATTRIBUTE    *CH'    TEHP    ON    FA9201I. OBJECT 
HOVE    "F"    TO    WK-VALID-INPUT 
ENOIF 

I  J 

6400 

6500 
6600 

:VALIDATE    USER    'ACTION'     INPUT 
SELECT    FIRST    ACTION 

j 

6700 
6800 
6900 

WHEN    FA9201I. ACTION  =    'A* 

DO    ADD-REC 
WHEN    FA9201I. ACTION    =     'D' 

i> 

7000 
7100 
7200 

00    DISPLAY-INDEX 
WHEN    FA9201I. ACTION   =     »E« 
DO    ERASE-REC 

J 

7300 
7400 
75  00 

WHEN   FA9201I. ACTION  =    »U» 

DO    UPDATE-REC 
WHEN    OTHER 

» 

M 

7600 

7700 
T300 

SET    FA9201I.MSGLINE    =     'SELECT   AN   ACTION    FROH    FOLLOWING    LIST' 
SET    FA9201I.P0L-HEADERU)     =     •          A               ADO                (INSERT)' 
SET    FA9201I.PDL-HEADER12)     =    •          0               DISPLAY    (SHOW)       ' 

1 

M 

7900 
8000 
8100 

SET    FA9201I.P0L-HcADER(3)    =    •          E               ERASE          (REMOVE)* 
SET    FA9201I.PDL-HEADER(4)     =    '          U              UPDATE       (CHANGE)* 
SET    ATTRIBUTE     'CH'     TEMP    ON    FA9201I. ACTION 

. 

8200 
8300 

8400 

SET    WK-VALID-INPUT                                     =    *F* 
ENDSEL 

J 

8500 
8600 
8700 

^VALIDATE    USER     'MAJOR    SYSTEM*     INPUT 
IF    FA9201I.NAJ5YS    =    *0« 

SET    FA9201I.MAJSYS-MSG    ■    "ORGANIZATION* 

» 

M 

8800 
8900 
9000 

ELSE 

SET    FA9201I.MAJSYS-KSG    =    "INVALID    MAJOR    SYSTEM,    USE    *  0' " 
SET    ATTRIBUTE    *CH'     TEHP    ON    FA9201I.MAJSVS 

i 

9100 
9200 
9300 

MOVE    "F-    TO    WK-VALID-INPUT 
ENOIF 

1 

M 

9400 

ENDPROC 
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1       CCFA92C;  001  TfST 

'PROCEDURE:      "  "CCFA92CI   " 


MARCH  4f  1987 


VERSION:   001   STATUS:   TEST 


S^U   STATEMENT 


9609  : '— 

9700  :  ERASE  DESIGNATED  RECORD 

9600  : 

9900  <<ERASE-REC»    PROCEOURc 
10000 
10100  FORTH*    FIRST    HS-EMPLOYSS- 


10200 
10300 
10*00 
10500 
10600 
10700 


WHfcRE    MS-EMPL0YEE-2-U. EHPNO   =    WK-READ-KEY 
SET    FA9201I.PDL-HEA0ER(1) 
tSTRIH6(«EHPL0YEE 


: 


ITOGO       . 

10900 
--11000 


11100 
11200 
11300 


SET    FA9201I.PDL-HEADER(2)    = 

tSTRINGC  FIRST    NAME 

SET    FA9201I.PDL-HEA0ER(3)     * 

t'STR HiCC«  1  "~MDDLE    INIT 

SET  FA9201I.PDL-HEADER(*)  = 
* SJ RIN6C LAST   NAM E 


t.lS-EKPLQYEE-2-U.  EHPNO) 


•HS-EHPLOYEE-2-U.FIRSTNHE ) 


•MS-tMPLOYEE-2-U.MIDINIT) 


SET  FA9201I.PDL-HEA0ER(5) 


SET  FA9201I.PDL-HEA0ER(6) 


PHONE  NUMBER 


11*00  SSTRTSgT 

11500  IF    SPF9 

11600 DELETE    MS-EHPL0YEE-2-U 

11700  ELSE 

11800  :null 

11900  ENDIF 


WORK    DEPT  " 


:       '.MS 

-EHPLOYEE- 

■2 

$h 

LASTNAHE) 

:       '.MS 

-EHPLOYEE- 

2 

-u 

PHONENO) 

:       «tMS 

-EHPLOYEE- 

2 

■U.WORKOEPT) 

*3' 


12000 
12100 
12200 


WHEN    NONE 

SET    FA9201t.MSGLINE 


12300  ENCFOR  : HS-cMPLOYEE-2-U 

12400    ENOPROC  :ERASE-REC 

12500 


•EHPLOYEE_ID    riOT    FOUND    OF    FILE* 


12600  : 

12700  :  ADD  RECORD 
_1_2800_  : 


12900  «ADD-REC»  PROCEDURE 

12501 

13100     FOR  NEW  US -EMPLOYEE- 


2-U 


13300  SET  HS-EHPL0YEE-2-U. EHPNO  =  FA9201I  ."POL-HEADER  (1) 

13*00  SET  MS-EHPLOYEE-2-U.FIRSTNHE  =  FA9201 I.P0L-H£ADER(2) 

13500  SE_T_  HS-EMPLQYEE-2-U.HIDINIT   =  FA9201I .PPL-HEAPERt3) 

13600  SET  MS-EMPLOYEE-2-U.LASTNAHE  «  FA92011 .PDL-HEADERC*) 

13700  SET  MS-EMPL0YEE-2-U. PHONENO   =  FA9201 I. PDL-HEADERC 5) 

13800  SET  HS-EHPLOYEE-2-U.WORKDEPT  =  PA9201 I . PDL-HEA OER( 6> 

13900  00  EDIT-INPUT 

1*000  IF  HK-GOOO-EOIT  *  *T 

1*100 IHULL>  _REC0R_D_H1LL_8E_AD0EP 
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tZ 
) 

: 
i 

) 

t 

■ 

1  > 

PGM      CCFA92CI         ?01         TEST           SYS:UD           MARCH    <t»     1967                     13:4^:00 

f'|          PR0CE0URE 

■ 

CCFA92CI                             VERSION:       001       STATUS:       TEST 

SEO       STATEMENT 

1*300                          SET    MSGLINE    =    "CORRECT    HIGHLIGHTED    FIELDS       ♦ 

" 

1*400                  ENDIF 

14500            WHEN    DUPLICATE 

14600                  SET    HSGLINE    =    'EHPLOYEE     ID    ALREADY    EXISTS    ON    FILE* 

,!| 

14700            ENOFOR 

14800    ENDPROC          IADD-REC 

14900 

:; 

15100    :    UPDATE    RECORD 

15300    «UPDATE-REC»    PROCEDURE 

15400            IF    WK-REC-DISP    *    *F* 

15500                    FOR    THE    FIRST    HS-EMPL0YEE-2-U    NO    UPDATE 

" 

15600                                  taHERE    MS-EMPLOYEE-2-U.EHPNO    =    WK-REA0-K6Y 

L5700 

15800                       SET    FA92Q1I.P0L-HEADER<1)    = 

15900                          SSTRINGC  EMPLOYEE             ID                                :       ■ fMS-EMPL0YEE-2-U.EMPNQ> 

16000                       SET    FA9201I.P0L-HEADER(Z)    = 

16100                          SSTRINGC                                   FIRST    NAME          :       ■ »MS-EMPL0YEE-2-U.FIRSTNME > 

"1    i     . 

16200                       SET    FA920ir.PDL-HEAOeR(3)    = 

16300                          SSTRINGC                                   MIDDLE    INIT       :       •.MS-EMPLOYEE-2-U.MIDINIT) 

16*00                       SET    FA9201I.PDL-HEADER(4>    = 

P 

16500                          SSTRINGC                                   CAST    NAME            :       • ,KS-EMPL0YEE-2-U.LASTNAHE ) 

16600                       SET    FA9201I.PDL-HEADER(5)    = 

16700                          SSTRINGC                                   PHONE    NUMBER    :       •  * MS-EHPLOYeE-2-U.PHONENO) 

• 

> 

i 

i 

*'                                                                   16800                       SET    FA9201I,PDL-HEA0ER(6)    = 

3-\                                                                  16900                          SSTRINGC                   .-              WORK    DEPT             :       •  »KS-£HPLOYEE-2-U.WORK0£PT ) 

"1                                                                  17000                       SET    WK-SAVE-EMPNQ            =    MS-EHPLOYEE-2-U.EMPNO 

jb 

17100                       SET    WK-SAVE-FNAME            =    MS-EM'plOYEE-2-U.FIRSTNME 
17200                       SET    WK-SAVE-MIOINIT       =    MS-EMPLOYEE-2-U.HIDINIT 
17300                       SET    WK-SAVE-LNAHE            =    MS-EMPLOYEE-2-U.LASTNAHE 

I 

17*00                       SET    WK-SAVE-PHONENO      =    MS-EMPLOYeE-2-U.PHONENO 
17500                       SET    WK-SAVE-WKDEPT         =    MS-EMPLOYEE-2-U.WORKDEPT 
1T600                  WHEN    NONE 

A1 

17700                       SET    FA9201I.MSGLINE    =     "EMPLOYEE    ID    NOT    FOUND    FOR    UPDATE1 
17800                       SET    WK-r.EC-OiSP    =     »F' 
17900                  ENDFOR 

- 

18000 

18100            ELSE 

18200                     :REC0RD   FOUND    AND    DISPLAYED   FOR    USER 

m 

18300                     SET    WK-GOOD-EOIT    =     *T» 

1S400                    DC    EDIT-INPUT 

18500                     IF    WK-GOGD-fcDIT    »     'T1 

- 

18600                             SET    WK-60OD-C0MPAR6    =    »T« 
18700                            DO   COHPARE-RECS 
18800                    ELSE 

» 

18900                          SET    FA9201I.MSGLINE    =    SSTRI NGCCORRECT    HIGHLIGHTED    FIELDS', 

6-50. 
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PGM      CCFA92CI 
I 

001        TES1 

SYS:  HO            MARCH    4,     1987                        18:44:00 

"i          PROCEDURE: 

CCFA92CI 

Teq 

19000 

VERSION:      001      STATUS:      TEST 

Ji, 

STATEMENT 

" 

MSGLINE) 

1  J 
1  ) 

h 
j 

i 

; 
j 

",\ 

19100 
19200 
19300 

ENOIF 
ENOIF 
ENDPROC          IUPOATE-REC 

'I 

19400 
19500 
19600 
19700 
19600 
19900 

:     EDIT    USER    INPUT 

■J 

«EOIT-INPUT»   PROCEOURE 

IF   FA9201I.PDL-INPUT14)    >    *SPACES 

3 

20000 
20100 
20200 

SET    MSGLINE    =    S5PACES 
ELSE 

SET    MSGLINE    =    «LAST    NAME    NOT    SUPPLIEO* 

203  00 
20400 
20500 

SET    rfK-GOOD-eGIT   =    »F' 
ENOIF 

3 

20600 
20700 
20800 

IF    FA9201I.PDL-INPUT<5>       >    SSPACES 
IF    $NUMERIC(FA9201 I. POL-INPUT (5)) 
SET    MSGLINE    =    SSPACES 

i 

20900 
21000 
21L00 

ELSE 

SET    WK-GOOD-EDIT    =    «F« 

SET    HSGLINE    =    'PHONE    NUMBER    NOT    NUMERIC' 

c 

21200 
21300 
21400 

ENOIF 
ELSE 
:NULL 

"'"■ 

21500 

21600 

,.   21700 

ENOIF 
ENOPROC         :EDIT-INPUT 

m 

21900 
22000 

:    COMPARE    COPIES    OF    RKCORO    TO    SEE     IF    UPDATED    SINCE 

SESSION   BEGAN 

;:  j 

22100 
22200 
22300 

«COMPARE-RECS»    PROCEOURE 
SET    WK-GOOD-COMPARE    »    IT* 
« COM P AR E- LOOP » 

C- 

22400 
22500 
22600 

FOR   THE    FIRST    MS-EHPL0YEE-2-U 

WHERE    MS-£aPL0YEE-2-U.EMPNQ    =    HK-READ-KEY 

1 

22700 
22800 
22900 

IF    WK-SAVE-EMPNO    *   FA9201 I.POL-INPUT tl) 

:NULL 
ELSE 

L 

23000 
23100 
23200 

SET    WK-GOOO-COMPARE    =    "F» 
ENDIF 
IF    WK.-SAVE-FNAME    =    FA9201 1.  PDL-INPUT(2) 

teu 

23300 
23400 
23500 

:NULL 
ELSE 

SET    HK-GOQD-COHPARE    »    »F« 

T_ 

23600 

ENOIF 
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PGM      CCFA92CI         001  TEST  SVS:tID  MARCH    *,     1987 


!    J 

1    ) 

• 

• 

■ 
• 

PROCEDURE 

CCFA92CI 

VERSION:      001      STATUS: 

TEST 

SEQ 

STATEMENT 

..... 

23700 

IF    WK-SAVE-MIOINIT    =    FA9Z01 I ,PDL-INPUT(3) 

23800 
23900 
2*000 

:NULL 
ELSE 

SET    WK-GOOD-COMPARE    = 

.F. 

(I 

2*100 
2*200 
2*300 

END1F 

IF   WK-SAVE-LNAME    =    FA9201 I . PDL-INPUT(*> 
I  NULL 

2**00 
2*500 
2*600 

ELSE 

SET    HK-GOOD-CCHPARE    =' 

END  IF 

F» 

" 

2*700 
2*800 
2*900 

IF    WK-SAVE-PHONENO    =    FA9201 I .PDL-INPUT(5) 

:NULL 
ELSE 

" 

' 

25000 
25100 
25200 

SET    WK-GQOD-COHPARE   » 
ENDIF 
IF   WK-SAVE-WKDEPT    =    FA920 

:NULL 
ELSE 

SET    WK-GOOO-COMPARE    = 

F* 
II.PDL-INPUT(6) 

25300 
25*00 
25500 

F» 

«« 

25700 
25800 

IF   WK-GOOD-CONPARE    =     "T* 
(NULL 

P 

» 

25900 
26000 
26100 

ELSE 

SET    ATTRIBUTE     *P*     TEMP 
SET    ATTRIBUTE    «P«     TEHP 

ON    FA9201I.PDL-INPUT( L) 
ON    FA9201I.P0L-INPUT(2> 

J 

26300 
26*00 

SET    ATTRIBUTE    *P»    TEHP    ON   F*9201T.7FDC=IHPUTC5r 
SET    ATTRIBUTE    *?'     TEMP    ON    FA9201I.P0L-INPUT(*) 
SET    ATTRIBUTE     'P*    TEHP    ON   FA9201I .PDL-INPUT(5>- 

• 

* 

26500 
26600 
Z6700 

SET    ATTRIBUTE     *P»     TEMP 
SET    rA9201I.hS3LINE    = 
•NO    UPDATE*     OATA    CKA 

ON    FA9201I.PDL-INPUT(6> 
JGED    SINCE    UPDATE    BEGAN* 

CONTACT    DP* 

I 

w 

26600 
26900 
27000 

QUIT    CCMPARE-LOOP 
ENOIF 

„ 

27100 
27200 
27300 

WHEN    NONE 

SET    MSGLINE    =     'EMPLOYEE 
ENDFOft 

10    NOT    FOUND    FOR    UPDATE" 

J 

27*00 
27500 
27600 

ENDPROC          :COHPARE-RECS 

« 

27700 
Z780C 
27900 

:    RESET    THEN    RESENO    THE    INITIAL    SCREEN 

«RESENO-PNL»    PROCEDURE 

J 

- 

.       .  -      .  " 

iaooo 

28100 
28200 

RESET    FA9201I 

SET   ATTRIBUTE    *IP"    TEHP    ON 

FA9201I.C0LUHN-HEA0S 

J 

» 

28300 

SET    ATTRIBUTE     'IP'     TEMP    ON 

6-52 

FA9201I. MSGLINE 

: 

" 

Ji 


£T 


PGM   CCFA92CI 


PROCEDURE: 


VERSION:   001   STATUS:   TEST 


SEO   STATEMENT 


i"; 

r 


28*00  SET    ATTRIBUTE     'IP'     T6HP    ON    FA9201 I .PFK-HSG 

28500  SET   ATTRIBUTE     •UAL*    ON    FA9201 I.HAJSYS" 

28600  SET   ATTRIBUTE    'UAL*    ON   FA9201I. ACTION 

26700  SET   ATTRIBUTE    'UAL'    ON    FA9201 I. OBJECT  :       - 

28800  SET   ATTRIBUTE     'UAL*    ON    FA9201 I. SEARCH 

28900  HOVE    SSPACES    TO    FA9201I.HAJSYS 

29000  HOVE    tSPACES    TO    FA92Q 1 1.  ACTION ___ 

29100  HOVE    JSPACES    TO   FA9201I. OBJECT 

29200  HOVE    5SPACES    TO   FA9201I, SEARCH 

29300 ■y-,\ ' 

29*00  LOOP 

29500  VARYING    WK-RESEND-CTR    FROH    1    BY    1    UP    THRU    12 

29600 MOVE    -SPACES    TO    FA9201 1 .POL-HEADEk< WK-RESEND-CTR) 

29700     ...     ENDLOOP    "'"  T~-  ~~ 

29800 

29900  ENDPROC 

30000 

30100 

30200 


:RESEND-PNL 


= .03 00 

30400 
30500 
30600" 
30700 
30800 
30900 
31000 
31100 
31200 
31300 
31400 
31500 
31600 
31700 
31800 
31900 
32000 
32100 
32200 
32300 
32*00 
32500 
32600 
32700 
32800 
_1_  _PJ_  _ 


i    DISPLAY  THE  EHPLQYEE/QEPARTHENT  INDEX  

«DISPLAY-INDEX»  PROCEDURE 

SET  WK-PNL-CTR  «  0 
SET  WK-CTR  =  0 
FOR  THE  FIRST  12  HS-EHPL0YEE-2-U   NO  UPDATE 


WHERE  HS-EHPLOYEE-2-U.EMPNO 
ORDERED  BY  MS-EHPLOYEE-2-U.EHPNO 


set  wk-ctr 
set  wk-pnl-ctr 

~seT~hk-dl-:<ox-al?h 
set  wk-dl-nox-alpn 
set  wk-dl-workdept 
set  wk-dl-empno 
set  wk-fnahe-3yte-1 

~~s  et— wk-  ol-f  ull^-  na  h  e 


WK-CTR    ♦    I 
WK-PNL-CTR 


WK-READ-KEY 


:VALUES 
: VALUES 


TO    12 

TO    tfEHP 


WK-PNL-CTR 
*TRANSLATE(HK-DL-NDX-ALPNtFROM=*     ^TO^O' 

HS-6HPLOYEE-2-U.WORICDEPT 

MS-EHPLOYEE-2-U.EMPNQ 
(SU8STR(HS-EMPL0YEe-2-U.LASThAHE,START=l, 

LENGTH=1) 

$STRING(W"K-FNAHE-BYTE-l/MIDINIT»'    •» 
FIRSTNHE> 


FOR    FIRST    HS-OEPARTHENT-U    NO    UPDATE 

WHERE    HS-OEPARTHENT-U. DEPTNO    =    HS-EHPLCYEE-2-U.WQRKDEPT 

__   SET    WK-DL-DEPTNAHE    =    HS-OEPARTHENT-U. OEPTNAME 

WHEN   NONE  " 

:NULL 
ENOFOR  
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PGM      CCFA92CI  001  TEST  SfS: JiO  MARCH    *f     1987  18:**;0G 

"PROCc'DURET  CCFA92CI       "  VERSION  I      001       STATtSS       TEST 


.     j* 


lM. 


SEJ      STATEMENT 
331C0 


33  200 
33300 
33*00 


33500 
3  36  CO 
33700 


HOVE    MS-E_MPLOYEE-2-U_EMPN0    TO    WK-READ-KSY  _      ______ 

MOVEWK-DEtAIL-LiNE  TO    FA9201I .PDL-HeAOER( WK-CTR) 

SET    WK-HOLO-NAHE   =    HK-OL-FULL-NAHE ,  .    I       ■ 


13900    ENDPROC 

33900 

3*000 


WHEN    NONE 

SET    FA9201I.MSGLINE 

ENDFOK 


•END    OF    FILE' 


:D1SPLAY-INDEX 


3*100    :MOVE    THE    COLUMN    HEADINGS    TO    THE    REPORT 

3*200    : 

3*300    «LQAD-COL-HEAOS»    PROCEOURE 


~3**~00 
3*500 
3*600 


"TfOVE    SS'TRrrJGpNO 


*oTio 


•0EPARTHENT~nTHE~ 
E/IO  •. 'EMPLOYEE    HAM*) 

TO    FA9201 I. COLUMN-HEADS  -   ■ 


3*700    ENDPROC 

3*800 

3*900     :«ERROR»    PROCEDURE 

"3WM1      cacl~~ccfa99vt~u~stsg  ~rNp~uT~"rD~"~ 

35100  :    QUIT  RUN 
352C0  :ENDPROC    :ERROR 


!-': 
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"J" 


7 


PGH   CCFA92CI    001    TEST     SVS:iID    MARCH  ■>,  1987 


18:44:00 


«92CI  VERSION:      001      STATUS:      TEST 

. __CCFA92CI .VERSIONS   .001. STATUSl.       TEST __; 

31500    CHGENP24-I    WK-PNL-CTR,    A    NUMERIC    FIELD  OR    LITERAL,    HAY  BE      TRUNCATED    IN 
MOVE   TO    AN    ALPHANUHERIC    f-IELO 


|    ;„ 


:- 


L 
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PGM      CCFA92CI 


-MARCH    4,     19fl7 


COMPILER       DIAGNOSTICS       AND       SUMMARY 


PROGRAM    HAS    BEEN    SUCCESSFULLY    COMPILED 


"  fVO"  £RRORMESSAGE(S")     FLAGGED    IN    THIS   COMPILATION 
NG    WARNING    MESSAGE(S)    FLAGGED    IN    THIS    COMPILATION 

1    AOVISORY   MESSAGE!  S)    FLAGGED    I N   THIS  _C0_MP_1LA_T  ION 

COMPILED    PROGRAM    STATISTICS: 


-  NUMBER  OF  SHAREABLE 

-  LENGTH  OF  SHAREABLE 


MEMBERS  CF    THE  PROGRAM 

PORTIONS  OF    THE  PRD6RAH 

-    NUMBER"  OF    NON-SHAREABLE    MEMBERS  OF    THE  PROGRAM 

LENGTH    OF    NON-SHAR=ABLE    PORTIONS  OF    THE  PROGRAM 





COl 
_8t?S6       BYTES 
001 
2*5*0       BYTES 
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ADDendix  B 


DB2  Programs  and  Output 


7-1 


TELEPHONE     DIRECTORS 


) 

AST  NAME 

FIRST  UWE 

INITIAL 

PHONE 
NUMBER 

EMPLOYEE 
NUMBER 

WORK 
OEPI 

WORK 
OEPT  NAME 

) 

flflS 

CHRIST ins 

I 

3978 

000010 

AOO 

SPIFFV  COMPUTER  SERVICE  DIV. 

OCCHESr" 

VINCENZO 

€" 

3490~ 

"000110 

AOO" 

SPIfTy'  COMPUTER- SERVICE  0~IV^ 

■  

'CONNELL 

SEAN 

.  .. 

_2167_ 

000120 

.JM. 

SPIFFY  COMPUTER  SERVICE  DIV. 

1 

K on PS  ON 

MICHAEL 

L 

3*76 

000020 

BOl 

PLANNING 

WAN 

SALLY 

A 

4738 

000030 

C01 

INFORMATION  CENTER 

UINTA NA 

'  XCHOLLS 

DOLORES 

H 

4578 

000130 

C01 

INFORMATION  CENTER 

) 

■  HEATHER 

A 

1793 

000140 

C01 

INFORMATION  CENTER 

TERN 

IRVING 

F 

6423 

000060 

Oil 

MANUFACTURING  SYSTEMS 

DAMSON 

BRUCE 

4510 

000150 

Oil 
Oil/ 

MANUFACTURING  SYSTEMS 

> 

'•^lANKA^. 

'  ELIZABETH 

«'-;■ 

3782 

000160 

MANUFACTURING  SYSTEMS 

-  w*              ■-■■■.. 

is 

) 

OSHIMURA 

HASATOSHI 

J 

2890 

000170 

Dll 

MANUFACTURING  SYSTEMS 

C GOTTEN 

MARILYN 

S 

168? 

000180 

Oil 

MANUFACTURING  SYSTEMS 

> 

'  ALKER 

james;; 

H  :", 

2986: 

000190 

Oil. 

MANUFACTURING-.  SYSTEMS 

■ 

3 

SOWN 

DAVID 

4501 

000200 

Dll 

MANUFACTURING  SYSTEMS 

ONES 

WILLIAM 

T 

0942 

000210 

Dll 

MANUFACTURING  SYSTEMS 

i 

UT7. 

JENNIFER 

K 

0672 

000220 

Dll 

MANUFACTURING  SYSTEMS 

1 

ULASKI 

EVA 

D 

7831 

000070 

021 

ADMINISTRATION  SYSTEMS 

EFFERSON 

JANES 

J 

4265 

000230 

D21 

ADMINISTRATION  SYSTEMS 

•) 

ARINO 

SALVATORE 

n 

3780 

00,0240 

D21 

ADMINISTRATION  SYSTEMS 

) 

MITH 

DANIEL 

s 

0961 

000250 

C21 

ADMINISTRATION  SYSTEMS 

OHNSON 

SYBIL 

V 

8953 

000260 

D21 

ADMINISTRATION  SY5TEHS 

i 

EREZ 

MARIA] 

L 

9001 

000270 

D21 

ADMINISTRATION  SYSTEMS 

i 

EVER 

JOHN 

s 

6789 

000050 

E01 

SUPPORT  SERVICES 

ENDERSON 

EILEEN 

If 

5498 

000090 

Ell 

OPERATIONS 

' 

CNNEIDER 

ETHEL 

- 

8997 

000280 

Ell 

OPERATIONS 

> 

ARKER 

JOHN 

R 

4502 

C00290 

Ell 

OPERATIONS 

H1TH 

PHILIP 

X 

2095 

000300 

Ell 

OPERATIONS 

* 

ETRIGHT 

HAUDE 

■     r  v- 

3332 

000310 

Ell 

OPERATIONS ,-  . 

) 

PENSER 

THEODORE 

Q 

0972 

000100 

E21 

SOFTWARE  SUPPORT 

EHTA 

RAHLAL 

V 

9990 

000320 

E21 

SOFTWARE  SUPPORT 

1 


DB2    -    Batch    Program  Output 
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-'} 
) 
) 

) 
) 
) 
.) 

> 

> 

) 
) 
:> 


W!.\f, 
JASON' 
TEST_ 
TEST 
TEST "~ 
__?EST_. 
TEST 

TBI — 

TEST 
TEST    ' 


2)03 
5698 


000330 
000340 


0000    300000 


0000 

000  0 
0000 
0000 


300001 
300002 
300003. 

300004 


£21 
E31 
E21 
EM 
E21" 

E2i 

E21 


~BWD   300605 
0000    300006 


SOFTWARE 
SOFTUAHE 
SOFTWARE 
SOFTWARE 
"SOFTWARE 
SOP  TWA  RE_ 
SOFTWARE 
SOfTUAfiT 
SOFTWARE 


0000    300007    E21   SOFTWARE. 


SUPPORT 

SUPPORT 

SUPPORT 

SUPPORT 

SUPPORT 

SUPPORT 

SUPPORT 

SUPPORT ~ 

SUPPORT 

SUPPORT 


Wk- 


TEST 
TEST 

test; 


0000~ 

0000 

0000 


300008 
300009 


£21 
E21 


SOFTWARE 

SOFTWARE 


SUPPORT 
SUPPORT 


-E21  'SOFTWARE,  SUPPORT 


TEST 
TEST 


0000 

ocoo 


300011 
300012 


E2l 
E21 


SOFTWARE 
SOFTWARE 


SUPPORT 
SUPPORT 


0000    300013    E21  .SOFTWARE  SUPPORT 


L  ->:■& 

■"■:  ■'•£:■'-       ."-'.■■.■.  *.  ■■-.                 :  ■  ■  ' 

OE 

•*OE 

TEST 

TEST  - 

E 

E 

0000 
0000 

300014 
300015 

E21 
E21 

SOFTWARE  SUPPORT 
SOFTWARE  SUPPORT 

itsr ;: 

e 

0000 

300016 

E21 

SOFTWARE  SUPPORT 

TEST 
TEST 


0000 

ocoo 


300017 
300018 


E21 
E21 


SOFTWARE 
SOFTWARE 


SUPPORT 
SUPPORT 


\J" 


0000    300019    E21   SOFTWARE  SUPPORT 


TEST 

TEST 


0000 
0000 


300020 
300021 


E21 
£21 


SOFTWARE 
SOFTWARE 


SUPPORT 

SUPPORT 


E21   SOFTWARE  SUPPORT 


TEST 
TEST 


0000 
0000 


300023 
300024 


E21 
E21 


SOFTWARE 
SOFTWARE 


SUPPORT 
SUPPORT 


TEST 
TEST 


TEST 


e 

0000 

300025 

£21 

SOFTWARE  SUPPORT 

E 
E 

0000 

300026 
300027 

E21 
E21 

SOFTWARE  SUPPORT 
SOFTWARE  5UPPORT 

30002B    E21   SOFTWARE  SUPPORT 


0000 
0000 


300029 
300030 


"eTT 

E21 


SOFTWARE 
SOFTWARE 


SUPPORT 
SUPPORT 
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)    I      ot 


it-    '    . 


>  \'.m>. 


* 

i 
> 

) 

) 
i 
) 
> 


oe    ; 


ItSl 
TtSI 

jesi_ 

test 

"test" 

_TEST_ 
TEST 


0030 

3000il 

0000 

300032 

0000 

300013 
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DOTE 
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TIME 
PAGE 
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»***    DSNSBC3    -    0B2    SAMPLE    PHONE    APPLICATION    -    COBOL    -    BATCH    ** 

*    00013000 

1 

000200* 

>    00020000 

1 

000300* 

MODULE     NAME    =    DSN8BC3 

*    00030000 

1 

000400* 

00041000 

I 

000500* 

DESCRIPTIVE    NAME    =    DS2       SAMPL£    APPLICATION 

*    00050000 

1 

000600* 

PHONE    APPLICATION 

t    00060000 

1 

000700* 

BATCH 

*    00070000 

1 

000800* 

COBOL 

30080000 

1 

000900* 

t    00090000 

1 

001000* 

COPYRIGHT    =    574Q-XYR    (CI     COPYRIGHT 

ISM    CORP     1982.     198S 

t    00100000 

1 

001000* 

REFER    TO    COPYRIGHT    INSTRUCTIONS    FORM    NUMBER    G12Q-208J 

00110000 

1 

0O10O0* 

*    00120000 

1 

001000* 

STATUS    =    RELEASE    lt    LEVEL    0 

00130000 

I 

001400* 

00140000 

1 

0015  00* 

FUNCTION    =    THIS    MODULE    LISTS    EMPLOYEE    PHONE    NUMBERS.  AND 

00150000 

1 

001600* 
001700* 

UPDATES    THEM    IF    DESIRED 

00160000 
00170000 

_      1 

001800* 

NOTES    =    NONE 

00180000 

1 

ooi goo* 

00190000 

1 

002000* 

MODULE    TYPE    =    COBOL    PROGRAM 

00200000 

1 

002100* 

PROCESSOR         =    DB2       PRECOMPILER* 

VS    COBOL 

00210000 

1 

002200* 

MODULE    SHE    =    5EE    LINK    EDIT 

00220000 

1 

002  300* 

ATTRIBUTES      *    NOT    REENTRANT    OR 

tEUSABLE 

00250000 

1 

002400* 
002500* 

00240000 

1 

00250000 

1 

002600* 

ENTRY    POINT   =    DSN3BC3 

00260000 

1 

002700* 

PURPOSE    ■    SEE    FUNCTION 

00270000 

1 

002800* 

LINKA6E    =    INVOKED    FROM    DSN    RUN 

00280000 

1 

002900* 

INPUT 

00290000 

1 

003000* 

00300000 

1 

003  100* 

SYMBOLIC    LABEL/NAME    = 

CAROIN                                                  t 

00310000 

1 

003200* 

DESCRIPTION                         ■ 

INPUT    REQUEST    FILE                 * 

00320000 

1 

003300* 

00330000 

1 

OOS400* 

SYMBOLIC    LABEL/NAME    = 

VPHONE                                                  * 

00340000 

1 

OOJSOO* 

DESCRIPTION                         * 

VIEW    OF    TELEPHONE                    * 

00350000 

1 

003600* 

INFORMATION                                    i 

00360000 

1 

003700* 

00370000 

1 

003800* 

00380000 

1 

003900* 

OUTPUT       = 

00390000 

I 

004090* 

00400000 

1 

004100* 

SYMBOLIC    LABEL/NAME    = 

REPORT                                                 * 

00410000 

I 

004200* 

DESCRIPTION                         * 

REPORT    OF    EMPLOYEE                 * 

00420000 

1 

004300* 

PHONE    NUMBERS                               * 

00430000 

1 

004400* 

00440000 

1 

004500* 

SYMBOLIC    LABEL/NAME    = 

VEMPLP                                                  i 

00450000 

1 

004600* 

DESCRIPTION                         ■ 

VIEW    OF    EMPLOYEE                       < 

00460000 

1 

004  700* 

INFORMATION                                    * 

00470000 

1 

004  800* 

00480000 

1 

004900* 

EXIT-NORMAL    =    RETURN    CODE    0    NORMAL 

COMPLETION              X                         * 

00490000 

1 

005000* 

00500000 

1 

005100* 

EXIT-ERROR    = 

00510000 

1 

005200* 

00520000 

1 

005300* 

RETURN    CODE             *       NONE 

00530000 

1 

005400* 

* 

00540000 

DB2    -    Batch    Program 
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DATASET: 

member: 


DSN120.DSNSANP 
DSN8BC3 


DATE:  87/02/04 
TINE:  08:33 
PAGE:  2 


005500* 
005600* 
005700* 
005800* 
005900* 
006000* 
006100* 
006200* 
006300* 
006400* 
006500* 
006600* 
006700* 
006300* 
006900* 
007000* 
007100* 
007200* 
007300* 
007400* 
007500* 
007600* 
007700* 
007800* 
007900* 
008000* 
008100* 
008  200* 

008  300* 
008400* 
008500* 
008600* 
008700* 
008800* 
008900* 
009000* 
009100* 
009200* 
009300* 

009  400* 
0095  00* 
009600* 
009 700* 
009800* 
009900* 
010000* 
010100* 
010200* 
010300* 
010400* 
010500* 
010600* 
010700* 
010300* 


ABEND  COOES 


NONE 


ERROR-MESSAGES  = 

0SN8004I  -  EMPLOYEE  SUCCESSFULLY  UPDATED 
0SN8007E  -  EMPLOYEE  DOES  NOT  EXIST*  UPDATE  NOT  DONl 
DSN8003I  -  NO  EMPLOYEE  FOUND  IN  TABLE 
DSN8053I  -  ROLLBACK  SUCCESSFUL,  ALL  UPDATES  REMOVE! 
0SN8060E  -  S9L  ERROR,  RETURN  CODE  IS: 
DSN8061E  -  ROLLBACK  FAILED,  RETURN  CODE  IS: 
DSN8068E  -  INVALID  REQUEST,  SHOULD  BE  *L«  OR  »U» 
DSN8075E  -  MESSAGE  FORMAT  ROUTINE  ERROR, 
RETURN  CODE  IS: 


EXTERNAL  REFERENCES  = 
ROUTINES/SERVICES 
OSNTIAR   - 
0SN8NC6  - 

DATA-AREAS 

CONTROL-BLOCKS 
S8LCA 


CHANGE-ACTIVITY 


TRANSLATE    SULCA    INTO    MESSAGES 
ERROR    MESSAGE    ROUTINE 


SQL    COMMUNICATION    AREA 


♦PSEUDOCODE* 

PROCEDURE 

GET  FIRST  INPUT 

DO  WHILE  MORE  INPUT 

CREATE  REPORT  HEADING 

CASE  (ACTION) 

SUBCASE  I'L'I 

IF  LA5TNAME  IS  •*•  THEN 

LIST  ALL  EMPLOYEES 
ELSE 

IF  LASTNAMc  CONTAINS  'X*    THEN 

LIST  EMPLOYEES  GENERIC 
ELSE 

LIST  EMPLOYEES  SPECIFIC 
ENDSUB 

SU9CASE     MUM 

UPDATE    PH0NENUM3ER    FOR    EMPLOYEE 
WRITE    CONFIRMATION    MESSAGE 

OTHERWISE 

INVALID  REQUEST 

EN0SU9 


*  00550000 

*  O0S600OO 

*  00570000 

*  00580000 

*  00590000 

*  00600000 

*  00610000 

*  00620000 

*  00630000 

*  00640000 

*  00650000 

*  00660000 

*  00670000 

*  00680000 
'  00690000 

*  00700000 

*  00710000 

*  00720000 
t  00730000 
►  00740000 

*  00750000 
t  00760000 

*  00770000 
(  00780000 
i  00790000 
'  00800000 

00810000 

»  00820000 

00330000 

■  00840000 

■  00850000 
00860000 
00370000 
00380000 
00890000 
00900000 
00910000 
00920000 
00930000 
00940000 
00950000 
00960000 
00970000 
00980000 
00990000 
01000000 
01010000 
01020000 
01030000 
0  1040000 
01050000 
01060000 
01070000 
01030000 
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DATASET: 

NEMBER: 


START 
COL   


ENDCASE 

GET  NEXT  INPUT 
END 

IF  SQL  ERROR  OCCURS  THEN 

DO 

FORMAT  ERROR  MESSAGE 

ROLLBACK 
END 


010900* 

011000* 

011100* 

011200* 

011300* 

011400* 

011500* 

011600* 

011700* 

011300* 

011900* 

012000*- 

012100 

012200 

012300/ 

012400  IDENTIFICATION  DIVISION. 

012  5  00* 

012600  PROGRAM-ID.     DSN8BC3 

012700 

012800  ENVIRONMENT  DIVISION. 

01 2 900* 

013000    CONFIGURATION    SECTION. 

013100    SPECIAL-NAMES.  C01    IS    TO-TOP-OF-PAGE . 

013200    INPUT-OUTPUT    SECTION*. 

013300    FILE-CONTROL. 

013400  SELECT    CARDIN 

013500  ASSIGN    TO    DA-S-CARDIN. 

013600  SELECT    REPOUT 

013700  ASSIGN    TO    UT-S-REPORT. 

013800 

013900  DATA  DIVISION. 

014  000* 

014100  FILE  SECTION. 
014200  FD       CARDIN 


014300 

014400 

014500 

014600  01 

014700 

014800  FD 

014900 

015000 

015100 

015200  01 

015300/ 

015400  WORKING-STORAGE  SECTION. 

015500 

015  600***************t**t*****« 

015700*  STRUCTURE  FOR  INPUT 

015 300* ************  ************ 

015900  01   I0A9EA. 

016000  02   ACTION 

016100  02   LNAME 

016200  02   FNAME 


RECORD  CONTAINS  80  CHARACTERS 
BLOCK  CONTAINS  0  RECORDS 
LABEL  RECORDS  ARE  OMITTED. 
CARDREC  pic  XI80I. 

REPOUT 

RECORD    CONTAINS    120    CHARACTERS 
LABEL    RECORDS    ARE    OMITTED 
DATA    RECORD    IS    REPREC. 

REPREC  PJC    X11201. 


PIC    XtOll. 

PIC   xnsi. 

PIC    X(12). 


DATE:     87/02/04 
TIME:    03:33 
PAGE:     3 

3 


'    01090000 

*  01100000 
»  01110000 

*  01120000 
t  01130000 
'  01140000 
t  01150000 
■  01160000 
t  01170000 
i  01180000 
«  01190000 
t  01200000 

01210000 
01220000 
01230000 
01240000 
01250000 
01260000 
01270000 
01280000 
01290000 
01300000 
01310000 
01320000 
01330000 
01340000 
01350000 
01360000 
01370000 
31380000 
01390000 
01400000 
01410000 
01420000 
01430000 
01440000 
01450000 
01460000 
01470000 
01430000 
01490000 
01500000 
015100CO 
01520000 
01530000 
01540000 
01550000 
01560000 
01570000 
01580000 
01590000 
01600000 
01610000 
01620000 
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DATASET: 

DSN120.DSN5ANP 

MEMBER: 

0S*8BC3 

START 

1       016S00 

0?       ENO 

PIC    XI061. 

1       016400 

02       NEUNO 

PIC    X104I. 

1       016500 

02       FILLER 

PIC    X(42>. 

1       016600 

1       016700*** 

************************** 

************************ 

1       016800*     REPORT    HEADER    STRUCTURE 

k 

1       016900*** 

************************** 

************************ 

1       017000    01 

REPHDR1. 

1       017100 

02       FILLER    PIC    XI291 

1       017200 

1       017300 

02       FILLER    PIC    XI211 

• 

1       017400 

VALUE    •    TELEPHONE    OIRECTORf    *. 

I       017500 

02       FILLER    PIC    X(29» 

1       017600 

VALUE     • 

.  ___  .                                      , 

1       017700    01 

REPHDR2. 

* 

1       017800 

02       FILLER    PIC    XI09» 

VALUE     *LAST    NAME*. 

1       017900 

02       FILLER    PIC    X(071 

VALUE    SPACES. 

1       018000 

02       FILLER    PIC    XHO> 

VALUE     'FIRST    NAME*. 

1       018100 

02       FILLER    PIC    X1031 

VALUE    SPACES. 

1       013200 

02       FILLER    PIC    X<08) 

VALUE     'INITIAL*. 

1       018300 

02       FILLER    PIC    X107J 

VALUE     *PHQNE*. 

1       018400 

02       FILLER    PIC    XI091 

VALUE     'EMPLOYEE'. 

1       018500 

02       FILLER    PIC    X(05» 

VALUE     'WORK*. 

1       018600 

02       FILLER    PIC    XI04I 

VALUE     *HORK*. 

1       018700    01 

REPHDR3. 

'                1       018800 

02       FILLER    PIC    X(37l 

VALUE    SPACES. 

1       018900 

02       FILLER    PIC    X107I 

VALUE    'NUMBER'. 

1       019000 

02       FILLER    PIC    XI091 

VALUE     "NUMBER*. 

1                1       019100 

02       FILLER    PIC    XIOSl 

VALUE     'DEPT'. 

1       019200 

02       FILLER    PIC    XI05I 

VALUE     *DEPT*. 

1       019300 

02       FILLER    PIC    X(041 

VALUE     *NAME*. 

1                1       019400 

1       019500**** 

************************** 

*********************** 

1       019600*    REPORT    STRUCTURE 

1                1       019700**** 

************************** 

*********************** 

1       019800    01 

REPDATA. 

1       019900 

02       RLNAME            PIC    XI15). 

'                1       020000 

02       FILLER            PIC    XtOl)     VALUE     SPACES. 

1       020100 

02       RFNAME             PIC    XI121. 

1       020200 

02       FILLER            PIC    X(04)     VALUE     SPACES. 

1       020300 

02       RMIDINIT       PIC     XC011. 

1       020400 

02       FILLER            PIC    XIQ4I     VALUE     SPACES. 

1       020500 

02       SPKGNE            PIC    XIO 

4), 

1       020600 

02       FILLER            PIC    X(03)     VALUE     SPACES. 

1       020700 

02       RENPNQ            PIC    X(06>. 

1       020800 

02       FILLER            PIC    X(03)     VALUE     SPACES. 

'                1       020900 

02       RDEPTNO         PIC    X(03». 

1       021000 

02       FILLER            PIC    X(02)     VALUE    SPACES. 

1       021100 

02       RDEPTNAME    PIC    XI36). 

1       021200 

1       021300**** 

*******************-***.*** 

*********************** 

1       021400*    UORKAREAS 

1       021500**** 

************************** 

*********************** 

1       021600    01 

LNflME-WORK. 

BATE:  37/02/04 
TIME:  08:33 
PAGE:  4 

7 « 8 

01630000 

01640000 

01650000 

01660000 

01670000 

01680000 

016*0000 

01700000 

01710000 

01720000 

01730000 

01740000 

01750000 

01760000 

01770000 

01780000 

01790000 

01800000 

01810000 

01820000 

01830000 

01840000 

01350000 

01860000 

01870000 

01880000 

01890000 

01900000 

01910000 

01920000 

01930000 

01940000 

31950000 

01960000 

01970000 

01980000 

01990000 

02000000 

02010000 

02020000 

02030000 

02040000 

0^050000 

02060000 

02070000 

02080000 

02090000 

02100000 

02110000 

02120000 

02130000 

02140000 

02150000 

02160000 
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DATASET: 

DSN120.DSN5AMP 

MEMBER: 

DSN8BC3 

START 

COL 
1 

021700 

1 * 2 + 3 

49   LNAME-WORKL 

+ 

PIC    S9J 

1 

021300 

49    LNAME-WORKC 

PIC    Xfl 

1 

021900    01 

FNAME  -WORK. 

I 

022000 

49    FNAME-WORKL 

PIC    S9I 

1 

022100 

49    FNAME-WORKC 

PIC    xu 

1 

022200    77 

INPUT-SWITCH 

PIC    X 

1 

022300 

88      NONORE-INPUr 

1 

022400    77 

NOT-FOUND 

PIC    S9( 

1 

022500 

1 

022600*** 

**.****.«****...«**.* 

******** 

1 

022700*    VARIABLES    FOR    ERROR-HANDLING 

1 

022800*** 

******************  *** 

******** 

1 

022900    01 

ERROR-MESSAGE. 

1 

023000 

02       ERROR-LEN 

PIC    S9t 

1 

023100 

02       ERROR-TEXT 

PIC    XII 

41     coup. 

SI. 

4)       COMP. 
21. 

VALUE 

VALUE 

91    COMP    VALUE 


023200 

023500    77       ERROR-TEXT-LEN 

023400 

023500/************************** 

023600*  SQL  INCLUDE  FOR  SQLCA 

023700*************************** 

023300  EXEC  SOL  INCLUDE  SQLCA 

023900 

024000******************************** 

024100*  SQL  DECLARATION  FOR  VIEW  VPHON 

024300  EXEC  SQL  DECLARE  VPHON 

024400  ILASTNAME 

024S00  FIRSTNAME 

024  600  MIDDLE  INITIAL 
024700  PHONENUMBER 
024800  EKPLOYEENUBBE 
024900  DEPTNUMBER 
025000  DEPTNAME 
025100  END-EXEC. 
025200 

02 530  0* ************************ *******> 
025400*  STRUCTURE  fOR  PPHONE  RECORD 

025  5  0  {]***  ************************  n*ti 
025600  01  -  PPHONE. 


4>   COMP  VALUE 

20)  OCCURS  8  T 

INDEXED  BV 

PIC  S9I9J   COMP  VALUE 


************** 


*********** 


ABLE 

ARCHARI 15) 

ARCHARI 121 
CHAR(Ol) 
CHARI04I 
CHARI06) 
CHARI03) 

ARCHARI 36) 


*100 

**** 


+  960 

MES 

ERRO 


NOT  NULL* 
NOT  NULL* 
NOT  NULL, 

NOT  NULL* 
NOT  NULL* 
NOT  NULL) 


025700 
025800 
025900 
026000 
026100 
026200 
026300 
026400 
026500 
026600 
026700 
026  300 
026900 
027000* 


a? 


LASTNAME. 

49   LASTNAMEL 
49   LASTNAMCC 

FIRSTNAME. 

49   FIRSTNAMEL 
49   FIRSTNAMEC 

MIDDLEINITIAL 

PHONENUMBER 

EMPLOVEENUMBER 

DEPTNUMBER 

DEPTNAME. 

49   DEPTNAHEL 
49   DEPTNAMEC 


PIC 

S9I4I 

COMP. 

PIC 

x<  15) 

VALUE 

SPACES 

PIC 

S9I4I 

COMP. 

PIC 

XI  12) 

VALUE 

SPACES 

PIC 

XI  (111. 

PIC 

XI  04)  . 

PIC 

X106I. 

PIC 

Xt03). 

PIC 

S9(4) 

COMP. 

PIC 

XI36) 

VALUE 

SPACES 

DATE:  87/02/04 
TIflE:  08:33 
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02170000 
02130000 
02190000 
02200000 
02210000 
02220000 
02230000 
02240000 
02250000 
02260000 
02270000 
02280000 
02290000 
02300000 
02310000 
02320000 
02330000 
02340000 
02350000 
02360000 
02370000 
02380000 
02390000 
02400000 
02410000 
02420000 
02430000 
02440000 
02450000 
02460000 
02470000 
02480000 
02490000 
02500000 
02510000 
02520000 
02530000 
02540000 
02550000 
02560000 
02570000 
02580000 
02590000 
02600000 
02610000 
02620000 
02630000 
02640000 
02650000 
02660000 
02670000 
02680000 
02690000 
02700000 


7-21 


DSN120.0SNSAMP 
DSN88C3 


-1- 


DATE:  87/02/04 
TIME:  08:53 
PAGE:  6 

-ft * 7 #. 8 


percent-count* 


PIC  S9UI   CONP. 


*************** 4*** 


*********** 


027100  77 

027200 

027100*** 

027400*  SQL  DECLARATION  FOR  VIEW  VEMPLP 

0  27SO  9  *******************************************  i,* 

027600  EXEC  SOL  OECLARE  VEMPLP  TABLE 

027700  tEMPLOYEENUNBER    CHARI06I 

027100  PHONENUMBER       CHAR(041 

027500  END-EXEC. 

O2S000 

028100***********4* 

028200*  SQL  CURSORS 

028JO0********************************* ********** 

028400***  CURSOR  LISTS  ALL  EMPLOYEE  NAMES 

028500 

028600  EXEC  SQL  DECLARE  TELE1  CURSOR  FOR 

028700  SELECT  * 

°28800  FROM    VPHONE 

028900  END-EXEC. 

029000 

029100***  CURSOR  LISTS  ALL  EMPLOYEE  NAMES  WITH 

029200***  FOR  LAST  NAME 

029300 

029400  EXEC  SQL  DECLARE  TELE2  CURSOR  FOR 

029500  SELECT  * 

029600  FROM 

029700  WHERE 

029800  AND 

029900  END-EXEC. 

030000 

030100***  CURSOR  LISTS  ALL  EMPLOYEES  WITH 

030200***  LAST  NAME 

030300 

030400 

030500 

030600 

030700 

030800 

030900 

031000/ 

031 100/ 

031200*  FIELDS  SENT  TO  MESSAGE  ROUTINE 

031300*  **********  *****'*******************„*******,* 

031400  01   MAJOR  pre  XI07I  VALUE 

031500 

031600  01 

0J17OO 

031800  01 

031900 

032000  01 

032100 

OJ22O0 

032300 

032400  01 


PATTERN  m  OR  l_l 


VPHONE 

LASTNAME   LIKE  :LNAME-WQRK 

FIRSTNAME  LIKE  :FNAHE-WORK 


SPECIFIC 


EXEC  SQL  DECLARE  TELE3  CURSOR  FOR 
SELECT  * 
FROM    VPHONE 
WHERE   LASTNAME    =    =LNAME 

AND   FIRSTNAME  LIKE  :FNAME-yORK 
END-EXEC. 


MSGCODE 


MSG-RECl. 

02  0UTMSG1 
02  RETCODE 


PIC  XC4J. 


PIC  XC691. 
PIC  S9C9). 


02710000 

027200GO 

02730000 

02740000 

02750000 

02760000 

02770000 

02780000 

02790000 

02800000 

02810000 

02320000 

02330000 

02840000 

02850000 

02360000 

02870000 

02380000 

02890000 

02900000 

02910000 

02920000 

02930000 

02940000 

02950000 

02960000 

02970000 

02930000 

02990000 

03000000 

03010000 

03020000 

03030000 

03040000 

03050000 

03060000 

03070000 

03080000 

03090000 

03100000 

03110000 

03120000 

03130000 

03140000 

03150000 

03160000 

03170000 

03180000 

03150000 

03230000 

03210000 

03220000 

03230000 

0 J240000 
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DATASET:  0SN120.DSNSAMP                                             DATE:  8  7/0Z/04 

MEMBER;   DSN8BC3                                                     TIME:  08:33 

PAGE:  7 
START 

1   032500          02  0UTHSG2             PIC  XC69I.  03250000 

1   032600  03260000 


032700 


034800  AT  END  HOVE  •««  TO  INPUT-SWITCH.. 


036100*  SELECT  ACTION 


037400  ELSE 

037500  if  ACTION  =  »U« 

037600  PERFORM  TELEPHONE-UPDATE 

037700 

037800  ELSE 


03270000 


032800  PROCEDURE  DIVISION.  03280000 

032900* 0  3290000 

033000  _ 
033100*****4**********444********************************** 

033200*  SQL  RETURN  CODE  HANDLING                            *  05320000 

033300* ****444*4 4***** *************  ***************** *******  033  30000 

033400           EXEC  SOL  WHENEVER  SOT-ERROR    GOTO  OBERROR  END-EXEC.  0J3400O0 

033500           EXEC  SQL  WHENEVER  SQLWARNING  GOTO  DBERRQR  END-EXEC.  03350000 

033600           EXEC  SQL  WHENEVER  NOT  FOUND   CONTINUE      ENO=£XEC.  03J60000 

033700  03370000 

03 3 800* ******************************************  **********  0  3  380000 

033900*  MAIN  PROGRAM  ROUTINE                                *  _           03390000 

034  000*****************************************************  03  400000 

034100  PROG-START.  03410000 

03*200*                                   **OPEN  FILES  _           03420000 

034300           OPEN  INPUT   CARDIN  03430000 

034400                OUTPUT  REPOUT.  03440000 

034500  _          03450000 

034600*                                   **GET  FIRST  INPUT  03460000 

034700           READ  CARDIN  RECORD  INTO  IQAREA  03470000 


03300000 
03S10000 


03480000 


034900  03490000 

035000*  **HAIN  ROUTINE                   03500000 

035100           PERFORM  PROCESS-INPUT  03510000 

035200              UNTIL  NONORE-INPUT.  03520000 

035300  PROG-END.  03530000 

035400*  **CLOSE  FILES         _          03540000 

035500           CLOSE  CARDIN  0J550000 

035600                 REPOUT.  03560000 

035700           GOBACK.  03570000 

035800  03580000 

035  900*****************************************************  03  590000 

036000*  CREATE  REPORT  HEADING  *   _           03600000 


03610000 


036200***4*************************************************  0  3620  000 

036300  PROCESS-INPUT.  036JO0OO 

•PRINT  HEADING      03640000 
03650000 


036400* 

036500  WRITE    REPREC    FROM    REPHDR1  

036600  AFTER    AOVANCING    TO-TOP-OF-PAGE .  03660000 


036700  WRITE    REPREC    FROM    REPH0R2  ...,., 

036300                                     AFTER    ADVANCING    2    LINES.  03680000 

036900  WRITE    REPREC    FROM    REPHDR3.  03690000 

837000  03700000 

037100*  4*SELECT    ACTION  03710000 

037200  ir   ACTION    =    «L»  03720000 

03  7  300                                     PERFORM    LIST-FUNCTION  037  30000 

03740000 


03670000 


03750000 
03760000 
03770000 
03780000 
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DATASET:  DSN120.0SN5AMP 
MEMBER:   DSNBBC3 


-1- 


DATE".  37/02/04 
TIME:  08:53 
PAGE:  8 

-7 + 8 


037900* 

038000* 

039100 

038200 

038300 

038400 

038500 

038600 

03R700 

038800/ 

038900* 

039000* 

039100*** 

039  200  LI 
039300* 
039400 
039500 
039600* 
039700 
039800 
039900* 
040000 

040  100 
040200 
040300* 
040400 
040500 
040600 
040700 
040300* 
040900 
0410  00 
041100 
041200 
041300* 
041400 
041500 
041600 
041700 
041800* 
041900* 
042000* 
042100* 
042200 
042300 
042400 
042500/ 
042600*** 
042700*  L 
042BO0*** 
042«00  LI 
043000* 
043100 
045200 


"INVALID  RE«U£ST 
**PRINT  ERROR  MESSAGE 
MOVE  <068E*  TO  MSGCODE 

CALL  'DSN8NCG*  USING  MAJOR  MSGCOOE  QUTMSG 
NOVE  OUTMSG  TO  0UTHSG2 
WRITE  REPREC  FROM  MSG-REC2 

AFTER  AOVANCING  2  LINES. 
READ  CARDIN  RECORO  INTO  IOAREA 

AT  END  MOVE  »N»  TO  INPUT-SWITCH. 

**********  )Hk* ******************************* ****** 
ETERHINE  FORM  OF  NAME  USED  TO  LIST  EMPLOYEES      * 

************************************************ 

ST-FUNCTIQN. 


SPACES 
•     TO   LNAME. 


IF    LNAME    -    ■*■ 

PERFORM   LIST-ALL 
ELSE   _ 

UNSTRING    LNAME 

DELIMITED    BY    SPACE 
INTO  LNANE-WORKC 

COUNT    IN    LNAME-WORKL 

UNSTRING    FNAME 

DELIMITED    8Y    SPACE 
INTO  FNAME-WORKC 

COUNT    IN    FNAME-UORKL 


**N0    LAST    NAME    GIVEN 


*N0    FIRST    NAME.  GIVEN 


**LIST    ALL    EMPLOYEES 


**UNSTRINS    LAST    NAME 


**UNSTRING    FIRST    NAME 


MOVE    ZERO    TO    PERCENT-COUNTER 
INSPECT   LNAME 

TALLYING    PERCENT-COUNTER    FOR    ALL 
IF    PERCENT-COUNTER    >    ZERO 


**COUNT    VS 


PERFORM    LIST-GENERIC 
ELSE 

PERFORM    LIST-SPECIFIC. 

1ST    ALL    EMPLOYEES 
ST-ALL. 

EXEC     SOL     OPEN     TELE1     END-EXEC. 


•*IF  NO  X'S  THEN 

**LIST  SPECIFIC  NAMEISI 

**ELSE 

**LIST    GENERIC    NHMEtSi 


********** 
**OPEN  CURSOR 


03790000 
03800000 
03810000 
03320000 
03830000 
03340000 
03150000 
03360000 
03370000 
03880000 
03390000 
03900000 
03910000 
03920000 
03930000 
03940000 
03950000 
03960000 
03970000 
03980000 
03990000 
04000000 
04010000 
04020000 
04030000 
04040000 
04050000 
04060000 
04070000 
04080000 
04090000 
04100000 
04110000 
04120000 
04130000 
04140000 
04150000 
04160000 
04170000 
04130000 
04190000 
04200000 
04210000 
04250000 
04230000 
04240000 
04250000 
04260000 
04270000 
04230000 
04290000 
04300000 
04310000 
04320000 
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OArASET: 

MEMBER: 


START 
COL      


-3 +- 


EXEC    SOL    FETCH    TELE1     INTO 
IF    SflLCODE    *    NOT-FOUND 


MOVE     '0081*     TO    MSGCODE 
CALL    *0SN8MCG»    USING    MAJOR    NSGCODE    0UTMS6 
MOVE    OUTMSG    TO    0UTMSG2 
WRITE    REPREC    FROM    MSG-REC2 
AFTER    ADVANCING    2    LINES 
ELSE 


DATE: 
TIME: 
PAGE: 


**MO    EMPLOYEE    FOUND 
"PRINT    ERROR    MESSAGE 


PERFORM    PRINT-AND-GET1 

UNTIL    SflLCODE    IS    NOT    EQUAL    TO    ZERO. 


••LIST    ALL    EMPLOYEES 


EXEC    S9L    CLOSE    TELEI    END-EXEC. 


**CLOSE    CURSOR 


043300* 

043400 

043500 

043600 

043700* 

043600* 

043930 

044000 

044100 

044200 

044300 

044400 

044500* 

044600 

044700 

044SOO 

044900* 

045000 

045100 

045200    PRINT-AND-GETl! 

045300  PERFORM    PRINT-A-LINE. 

0*5400  EXEC    SOL    FETCH    TELEI     INTO    :PPH0NE    END-EXEC. 

045500/ 

045 600* ******************************************  ********** 

045700*    LIST    GENERIC    EMPLOYEES  * 

045 800* **********************************************  ****** 

045900    LIST-GENERIC.  _ 

046000*  **OPEN    CURSOR 

046100 

046200 

046300* 

046400 

046500 

046600 

046700* 

046800* 

046900 

047000 

047100 

047200 

047300 

047400 

047500* 

047600 

047700 

047800 

047900* 

048000 

043100 

048200    PRINT-AND-GET2. 

043300  PERFORM  PRINT-A-LINE. 

0*8400  EXEC  SOL  FETCH  TELE2  INTO  :PPHONE  END-EXEC. 

048500/ 

04  8  600* ************  **********************************  ****** 


EXEC    SqL    OPEN       TELE2    END-EXEC. 


EXEC    SOL    FETCH    TELE2 


IF    SflLCODE    =    NOT-FOUNO 


**GET    EMPLOYEES 
PPHONE    END-EXEC. 


**N0    EMPLOYEE    FOUND 
**PRINT    ERROR    MESSAGE 
MOVE     '008I»     TO    MSGCODE 

CALL    'DSN8MCG*    USING    MAJOR    MSGCODE     OUTMSG 
MOVE    UUTNSG    TO    0UTMSG2 
WRITE    REPREC    FROM    MSG-REC2 
AFTER    ADVANCING    2    LINES 
ELSE 

"LIST    GENERIC    EHPLOYEEIS) 
PERFORM    PRINT-AND-GET2 

UNTIL    SflLCODE     IS    NOT    EOUAL    TO-ZERO. 


EXEC    SOL    CLOSE    TELE2    END-EXEC. 


**CLOSE  CURSOR 


1 g 

04330000 
04340000 
04350000 
04360000 
Q4J70000 
04330000 
04390000 
04400000 
04410000 
04420000 
04430000 
04440000 
04450000 
04460000 
04470000 
04480000 
04490000 
04500000 
04510000 
04520000 
04530000 
04540000 
04550000 
04560000 
04570000 
04530000 
04590000 
04600000 
04610000 
04620000 
04630000 
04640000 
04650000 
04660000 
04670000 
04680000 
04690000 
04700000 
04710000 
04720000 
04730000 
04743000 
04750000 
04760000 
04770000 
04760000 
04790000 
04300000 
04810000 
04320000 
04830003 
04340000 
04850000 
04860000 
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OATASET: 
member: 


START 
CQL 


DSN120.0SNSANP 
DSN8BC3 


-1- 


-3 ♦ 4 ♦_ 


048700*    LIST    SPECIFIC    EMPLOYEES 
048 800* ************  ************* 
048900    LIST-SPECIFIC". 
049000* 


EXEC    SQL    OPEN       TELES    END-EXEC. 


EXEC    SOL    FETCH    TELES    INTO 
IF    SQLCODE    =    NOT-FOUND 


**OPEN  CURSOR 
049100 
049200 
049500* 
049400 
049500 
049600 
049700* 
049800* 
049900 
050000 
050100 
050200 
050300 
050400 
050500* 
050600 
050700 
050800 
050900* 
051000 
051100 

051200    PRINT-AND-GET3. 

051300  PERFORM    PRINT-A-L IKE. 

051400  EXEC    SQL    FETCH    TELE3     INTO    JPPHONE    END-EXEC 

051500/ 

051600**************************** 
051700*     PRINT    A    LINE    OF     INFORHATIO 
051800* *************************** 
051900    PRINT-A-LINE. 
052000* 


**N0    EMPLOYEE    FDUNO 
**PRINT    ERROR  JIESSAGE 
MOVE     •OOSI"     TO    NSGCODE 

CALL    •0SN8HCG*    USING    MAJOR    NSGCODE    OUTHSG 
HOVE    OUTHSG    TO    0UTHSG2 
WRITE    REPREC    FROM    HS6-REC2 
AFTER    ADVANCING    2    LINES 
ELSE 

**LIST    SPECIFIC    EMPLDVEECSt 
PERFORM    PRINT-AND-GET3 

UNTIL    SQLCODE    IS    NOT    EQUAL    TO    ZERO. 


EXEC    SQL    CLOSE    TEJ.E3    END-EXEC. 


•*CLOS£    CURSOR 


**************** 
FROM    DIRECTORY 


**GET    INFORMATION 
MOVE    LASTNAMEC    TO    RLNAME. 
MOVE    FIRSTNAMEC    TO    RFNAME. 
MOVE    MIDDLEINITIAL    TO    RMIDINIT. 
MOVE    PHONENUNBER    OF    PPHONE    TO    RPHDNE. 
MOVE    EMPL0YEENUM8ER    OF    PPHONE    TO    REMPNO. 
MOVE    DEPTNUMBER    TO    RDEPTNO. 
MOVE    DEPTNAMEC    TO    RDEPTNAME. 


052100 

052200 

052300 

052400 

052500 

052600 

052700 

052800* 

05290G 

053000 

053100 

055200 

0S3300 

055400 

053500/ 

055600*** 

055700*    UPDATES    PHONE    NUMBERS    FOR    EMPLOYEES 

055800*******.*********************,*, ********** 

055900    TELEPHONE-UPDATE. 

054000  EXEC    SQL    UPDATE    VEMPLP 


WRITE    REPREC    FR0.1    REPDATA 
AFTER    AOVANCING    2    LINES. 

MOVE  SPACES  TO  LASTNAMEC 
FIRSTNAMEC 
DEPTNAMEC. 


*PRINT    INFORMATION 


****************. 


DATE:  37/02/04 
TIME:  08M3 
PAGE:  10 

7 A 3 


04870000 
04880000 
04390000 
04900000 
04910000 
04920000 
J4950000 
04940000 
04950000 
04960000 
04970000 
04980000 
04990000 
05000000 
05010000 
05020000 
05050000 
05040000 
05050000 
05060000 
05070000 
05080000 
05090000 
05100000 
05110000 
05120000 
O5L5000O 
05140000 
O515000O 
05160000 
05170000 
05180000 
05190000 
05200000 
05210000 
05220000 
05250000 
05240000 
05250000 
05260000 
05270000 
05280000 
05290000 
05  300000 
05310000 
05320000 
05330000 
05540000 
05350000 
05  560000 
05  570000 
05380000 
05390000 
05400000 
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DATASET:    DSN120. OSNSAMP 
MEMBER:       0SN8BC3 


START 

COL 

< — 

1 

054100 

1 

054200 

1 

054300 

1 

054400* 

1 

054500* 

1 

054600* 

1 

054700* 

1 

054800 

1 

054900 

1 

055000* 

1 

055100* 

1 

055200* 

1 

055300 

1 

055400 

1 

055500 

1 

055600 

t 

055700 

-   1 

055300/ 

1 

055900*' 

1 

056000* 

X 

056100** 

1 

056200  C 

1 

056300* 

— 1 

056400* 

1 

056500 

1 

056600 

1 

056700 

1 

056800 

1 

056900 

1 

057000 

1 

057100 

1 

0S7200 

1 

057300 

1 

057400 

1 

057500 

I 

057600 

1 

057700* 

1 

057800* 

1 

057900* 

1 

058000 

1 

058100 

1 

058200 

1 

058300 

1 

058400 

1 

058500 

1 

058600 

1 

058700**' 

1 

058400*  1 

1 

058  900**. 

1 

059000 

1 

059100 

1 

059200 

1 

059300 

1 

059400* 

DATE:    87/02/04 
TIME:    03:33 
PAGE:     11 


-♦ 3 + 


6- 


SET         PHONENUMBER  =    :NEWNO 

WHERE    EMPL0YEENUN8ER    =    :EN0    END-EXEC. 
IF    SQLCOOE    =    ZERO 

••EMPLOYEE    FOUND 
**UPDATE    SUCCESSFUL 
**PftINT   CONFIRMATION 
**NESSAGE 
10VE     •0041*    TO    MSGCODE 
ELSE 

**N0    EMPLOYEE    FOUND 
**UPOATE    FAILED 
**PRINT    ERROft    MESSAGE 
MOVE     '007E*    TO    MSGCODE. 
CALL    *DSN8nCG«    USING    MAJOR    MSGCODE    OUTMSG. 
MOVE    OUTMSG    TO    0UTMSG2. 
WRITE    REPREC    FROM    HSG-REC2 

AFTER    ADVANCING    2    LINES. 

************  *************  ******  ********** ********** 
SQL    ERROR    OCCURRED    -    GET    ERROR    MES5AGE  * 

*  ****************************************  ********** 
BERROR. 

**S9L    ERROR 
**PRINT    ERROJt    MESSAGE 
MOVE     ■060Et     TO    MSGCODE 

CALL    *DSN8MCG»    USING    MAJOR    MSGCODE    OUTMSG. 
MOVE    OUTMSG    TO   QUTMSG1    OF       MSG-RECl. 
MOVE    SOLCODE    TO    RETCODE    OF    MSG-RECl. 
WRITE    REPREC    FROM    MSG-RECl 

AFTER    ADVANCING    2    LINES. 
CALL    *DSNTIAR*    USING    SQLCA    FR R0R-KE5SAGE    ER ROR-TEXT-LEN 
IF    RETURN-CODE    =     EERO 

PERFORM    ERROR-PRINT    VARYING    ERROR-INDEX 

FROM    1    BY    1    UNTIL    ERROR-INDEX    GREATER    THAN    8 


ELSE 


••MESSAGE    FORMAT 
"ROUTINE     ERROR 
**PRINT    ERROR    MESSAGE 


MOVE     *075E«     TO    MSGCOOE 

CALL    'DSNSMCG*    USING    MAJOR    NSGCODE    OUTMSG 
MOVE    OUTMSG    TO    QUTNSGI    OF    MSG-RECl 
MOVE    RETURN-CODE     TO    RcTCOUE    OF    NSu-RECl 
WRITE    REPREC    FROM    MSG-RECl 
AFTER    ADVANCING    2   LINES. 

SQL    RETURN    CODE    HANDLING    WHEN    PROCESSING    CANNOT   PROCEED 

***********     fr   +   .ii-    41.1...   iiii^ii^ 


EXEC  SQL  WHENEVER  SQLERROR  CONTINUE 
EXEC  SQL  WHENEVER  SQLWARNING  CONTINUE 
EXEC  SQL  WHENEVER  NOT  FOUND   CONTINUE 


END-EXEC. 
END-tXEC. 

END-EXEC. 

•PERFORM  ROLLBACK 


i g 

05410000 
05420000 
05430000 
05440000 
05450000 
05460000 
05470000 
05430000 
05490000 
05500000 
05510000 
05520000- 
05530000 
05540000 
05550000 
05560000 
05570000 
05580000  . 
05590000 
05600000 
05610000 
05620000 
05630000 
05640000 
05650000 
05660000 
05670000 
05630000 
05690000 
05700000 
.05710000 
05720000 
05730000 
05740000 
05750000 
05760000 
05770000 
05730000 
05790000 
05800000 
05310000 
05520000 
05530000 
05340000 
05350000 
05360000 
05370000 
05330000 
05890000 
05900000 
05910000 
OS920000 
05930000 
05940000 


7-27 


START 
COL 


DSN120.DSNSANP 
DSN8BC3 


2~ 


DATE: 
TIME: 

PAGE: 


— 4- 


EXEC    S9L    ROLLBACK    END-EXEC. 
IF    SOLCOOE    =    ZERO 


•0531*    TO    (1SGC0DE 


059500 

059600 

059700 

059800 

059900* 

060000* 

060100* 

060200 

660300 

060400 

060  500* 

060600* 

060700 

060800 

060900 

061000 

06U00 

061200 

061300 

061400 

061 5 00* ************  ******** 

061600*       PRINT   MESSAGE    TEXT 

061 700* *********  *********** 

061800    ERROR-PRINT. 

J*JS«  MRITE    "EPREC    FROfl    ERROR-TEXT    I  ERROR-  INDEXI 

062000  AFTER    ADVANCING    1    LINE. 


MOVE     »061E» 
CALL    •0SN8NCS* 


TO    M5GC0DE. 

USING    MAJOR   flSGCOOE    OUTMSG. 
MOVE    OUTMSG    TO    0UTMSG1    OF    NSG-REC1. 
MOVE    SflLCODE    TO    RETCODE    OF    MSG-REC1. 
WRITE    REPREC    FROM    NSG-RECl 

AFTER    ADVANCING    2    LINES. 
GO    TQ    PROG-END. 


••ROLLBACK    SUCCESSFUL 
•*PRINT    CONFIRMATION 
**MESSAGE 


•ROLLBACK    FAILED 
PRINT    ERROR    MESSAGE 


***** 


***** 


********* 


********** 


**** 


05950000 
05960000 
05970000 
05980000 
05990000 
06000000 
06010000 
06020000 
06030000 
06040000 
06050000 
06060000 
06070000 
06080000 
06090000 
06100000 
06110000 
06120000 
06130000 
06140000 
06150000 
06160000 
06170000 
06180000 
06190000 
06200000 
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SELECTING  AN  EMPLOYEE  TO  DISPLAY 

MAJOR  SYSTEM 0  ORGANIZATION 

ACTION  >  D  DISPLAY  (SHOW) 

OBJECT :  EM  EMEPLOYEE 

SEARCH  CRITERIA  . . 1  EN  EMPLOYEE  NAME 

DATA % 


DEPARTMENT  NAME 

SPIFFY  COMPUTER  SERVICE  DIV. 

PLANNING 

INFORMATION  CENTER 

SUPPORT  SERVICES 

MANUFACTURING 

ADMINISTRATION  SYSTEMS 

OPERATIONS 

SOFTWARE  SUPPORT 

SPIFFY  COMPUTER  SERVICE  DIV. 

SPIFFY  COMPUTER  SERVICE  DIV. 

INFORMATION  CENTER 


PFKl  02-RESEND   03-END   08-NEXT 


NO 

D/ID 

01 

A00 

02 

B01 

03 

C01 

04 

E01 

05 

Dll 

06 

D21 

07 

Ell 

08 

E21 

09 

A00 

10 

A00 

11 

C01 

E/ID 


EMPLOYEE  NAME 


000010 

CI 

BASS 

000020 

ML 

THOMPSON 

000030 

SA 

KHAN 

000050 

JB 

GEYER 

000060 

IF 

STERN 

000070 

ED 

PULASKI 

000090 

EH 

HENDERSON 

000100 

TQ 

SPENSER 

000110 

VG 

LDCCHESI 

000120 

S 

O'CONNELL 

000130 

DM 

QUI NT ANA 

MAJOR  SYSTEM  .  .  .1  O 

ACTION I   A 

OBJECT EM 

SEARCH  CRITERIA.  .1  EN 
DATA 000030 


EMPLOYEE  ADD 


ID 

FIRST  NAME 
MIDDLE  INITIAL 
LAST  NAME 
HORK  DEPT  ID 
PHONE  NUMBER 


PFK:    02-RESEND    03-END 


DB2  -  Online  program  screens 
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MAJOR  SYSTEM  . 
ACTION  .... 
OBJECT  .... 
SEARCH  CRITERIA 
DATA 


EMPLOYEE 


.1  O 
.1  E 

.  t  EM 
.  I  EH 
. >  000030 


ID 

FIRST  NAME 
MIDDLE  INITIAL 
LAST  NAME 
WORK  DEPT  ID 
PHONE  NUMBER 


EMPLOYEE  ERASE 


t  000030 

I  JANE 

:  E 

I  DOE 

t  E21 

I  0000 


PFKt  02-RESEND  03-END 


EMPLOYEE  UPDATE 


MAJOR  SYSTEM  .  .  .t  O 

ACTION t  n 

OBJECT EN 

SEARCH  CRITERIA.  .  >  EN 
DMA ,  000030 


EMPLOYEE    ID  ,  000030 

FIRST  NAME  i  JANE 

MIDDLB  INITIAL  I  E 

LAST   NAME  i  DOE 

WORK   DEPT   ID  i  E21 

PHONE   NUMBER  :  0000 


PFKl    02-RESEND   03-END 

DB2  -  Online  program  screens 

7-30 


JATE: 

87/02/12 

TIME: 

17:24 

PAGE: 

1 

start 

COL 


1       500200*                                                                                                                                                                              *    00020000 
1       PC  1 500*          HUDULE    NAME    =    DSN8MCG                                                                                                           *    00030000 

1       1)00400*                                                                                                                                                                              *    00040000 
1       000500*         DESCRIPTIVE    untie.     =    0B2       SAMPLE    APPLICATION                                                   *    00050000 
1       000600*                                                              MESSAGE    ROUTINE                                                                         *    00060000 

1       001700*                                                              COBOL                                                                                                   *    00070000 
1      000500*                                                                                                                                                             *   00030000 
1       001200*                                                                                                                                                                              *    00120000 

7                       *    COPYRIGHT    '    5740-XYR     (CI    COPYRIGHT    13.1    COOP    1982.    1985                        *    00122000 
7                       *    REFER    TO    COPYRIGHT    INSTRUCTIONS    FORI    NUMBER    G120-20S3                          *    00124000 
7                       *                                                                                                                                                                              *    00126000 

7                       *     STATUS    ■     RELEASE    2»    LEVEL    0                                                                                                *    00128000 
1       no  MOO*          FUNCTION    =    THIS    MODULE    GIVEN    A    MESSAGE    CODEf    SENDS    THE                  *    00130000 
1       001400*                                        APPROPRIATE    MESSAGE    TO    TIE    CALLING    ROUTINE.                   *    00140000 

1       001500*                                                                                                                                                            *    C015C00Q 

1       001600*          NOTES    *    NONE                                                                                                                                     *    00160000 

1                 1       001700*                                                                                                                                                                              *    00170000 

1       001800*         .100ULE    TYPE    =    COBOL    PROGRAM                                                                                           *    00180000 
1       001900*                  PROCESSOR          =    DB2    PRECOMPILER*    COBOL    COMPILER                                  *    00190000 
1       002000*                  MODULE     SIZE    =    SEE    LINK    EDIT                                                                                   *    00200000 

1       002100*                  ATTRIBUTES       *    NOT    REENTRANT    OR    REUSABLE                                                   *    00210000 
1       002200*                                                                                                                                                                              *    00220000 
1       002300*                                                                                                                                                                              *    00230000 

1       002400-          ENTRY    POINT    =    DSNSMCG                                                                                                            *    00240000 
1       002500*                  PURPOSE    ■    SEE    FUNCTION                                                                                                *    00250000 
1       002600*                  LINKAGE    *     INVOKED    FROM    DSN    RUN                                                                           *    00260000 

1       002700*                  INPUT         =                                                                                                                                    *    00270000 
1       002800*                                                                                                                                                                              •    00280000 
1       002900*                                              SYMBOLIC    LABEL/NAME    *       MSGCOOE                                                *    00290000 

1       003000*                                              DESCRIPTION                          =       A    MESSAGE    CODE    NO.                   *    00300000 
I       003100*                                                                                                             PIC    K14I                                              *    00310000 
1       001200*                                                                                                                                                                              *    00320000 

1       003300*                                              SYMBOLIC    LASCL/NAMC    =       MAJOR                                                     *    00330000 
I       003400*                                              DESCRIPTION                         =       CALLING    MODULE    NAME               *    00340000 
1       003500*                                                                                                             PIC    XI7>                                              *    00350000 

I       003600*                  OUTPUT       =                                                                                                                                     *    00360000 
1       003700*                                                                                                                                                                              *    00370000 
1       003800*                                              SYMBOLIC    LABEL/NAME    =       OUTMSG                                                   *    00380000 

1       C0J9O0*                                              DESCRIPTION                         =       A    MESSAGE                                          *    00390000 
1       C04000*                                                                                                  PIC    XI69)                                      *    00400000 
1       004100*                                                                                                                                                                              ft    00410000 

1       004200*          EKIT-NORMAL    =     NONE                                                                                                                    *    00420000 
1       004300*                                                                                                                                                                              *    00430000 
1       004400*          EXIT-ERROR    =                                                                                                                                     *    00440000 

1      004500*                                                                                                                                              *   00450000 
1       004600*                  RETURN    CODE            =       NONE                                                                                                 *    00460000 
1       004700*                                                                                  f                                                                                           •    00470000 

1        UU4S0U*                    ABEND     CODES              »       NONE                                                                                                             *    00480000 
1       004900*                                                                                                                                                                              *    00490000 
1       005000/                  dRROR-MESSAGES"*       ALL.                                                                                                  *    00500000 

1       00510(1*                                                                                                                                                             ft    OOS10000 
1       005200*          EXTERNAL    REFERENCES    »                                                                                                           *    00520000 
I      005300*                                                                                                                                                             *    00530000 
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DATE:     37/02/12 
TIME:     17:24 
PAGES    2 


-4 + 5 *■ 


rosioo* 

ROUTINES/SERVICES    =       NONE 

» 

00540000 

'•05500* 

* 

00550000 

.1)5  600* 

3ATA-ARI--AS                       =       NONE 

* 

00560000 

105700* 

* 

00570000 

"05800* 

CONTROL-BLOCKS            ^       NONE 

* 

00530000 

005900* 

* 

00590000 

006000* 

TABLES     =        NONE 

* 

00600000 

006100* 

* 

00610000 

C062  00* 

* 

00620000 

006300* 

CHANGE-ACTIVITV    =    NO'lE 

* 

00630000 

C06400* 

* 

00640000 

006500* 

* 

0065  0000 

006600* 

•PSEUDOCODE* 

* 

00660000 

C06700* 

* 

00670000 

C06800* 

PROCEDURE 

* 

00680000 

006900* 

GET    IHPUT    FR0.1    CALLING    ROUTINC 

* 

00690000 

007COO* 

SEARCH    COPE.    ARRAV 

* 

00700000 

007100* 

* 

00710000 

007200* 

IF    CODES    HATCH 

* 

0072000O 

007300* 

GET    APPROPRIATE    NESSAGE 

* 

00730000 

0G74OO* 

ELSE 

* 

00740000 

007500* 

USE    'HESSAGE    TEXT    MOT 

:0UND» 

AS    HESSAGE 

* 

00750000 

007600* 

* 

00760000 

00  7700* 

SEND    HESSAGE    TO    CALLING    ROUTINE 

* 

00770000 

007300* 

END. 

* 

00780000 

007900* 

* 

00790000 

008000*- 

00800000 

008100/ 

00810000 

004200    IDENTIFICATION   DIVISION. 

00820000 
00830000 

003400    PROGRAH-ID.       DSN3MCG 

00840000 

0035  00 

00850000 

003600    ENVIR1NHEN7    DIVISION. 

00860000 

008700*- 

00*800 

J0380000 

008900    DATA    DIVISION. 

00890000 

C0900Q*- 

00900000 

009100    WORKING-STORAGE    SECTION. 

00910000 

009200* 

•OUTPUT    HESSAGE 

00920000 

009300 

01    UORK-NSG. 

00930000 

009400 

02    HEAD-CODE                          PIC 

XI  0*1 

VALUE     *DSN8*. 

00940000 

009500 

02    O-CDDC                                  PIC 

XI 041 

00950000 

009600 

02    F ILLER                                  PIC 

XC031 

VALUE    *         *. 

00960000 

009700 

02    0-10 DHL E                             PIC 

XI07J 

00970000 

009800 

02    DASH-SYH                             PIC 

XI01I 

VALUE     '-■. 

00980000 

009900 

02    O-NESSAGE                          PIC 

X150> 

00990000 

010000 

01000000 

010100 

01    OHSfi    REDEFINES    UORK-HSG 

>IC    XI69I. 

01010000 

010200 

01020000 

010300    LINKAGE    SECTION. 

01030000 

010400 

.  . 

01040000 

010600 

01    NSGCODE                                        PIC 

XC041 

01060000 

010700 

01070000 
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010300* 

C10900 
QUOOQ 


•INPUT    CALLING    MODULE    NAME 


011100* 

011200 

011300 


01    OUTHSG 


PIC    XI69). 


•OUTPUT    MESSAGE 


01080000 
01090000 
01100000 


011400* 
011500* 
011600* 


01110000 
01120000 
01130000 


MAIN    PR06RAH    ROUTINE 


011700 

011800    PROCEDURE    DIVISION    USINS    flAJOB    HSGCOOE    OtJTHSG. 


01140000 
01150000 
01160000 


012000    PROG-START. 

012100* 

012200 HOVE  M5GC0DE 


01170000 
01180000 

01190000 


1  0123OO 
1  012400 
1   012S0Q 


TO    Q-COJE 


12600 
012700 
012800* 


HOVE    HhJOR     ro    0-HO'jULE    Of    liOftK-ISS. 
HOVE     'MESSAGE    TEXT    .10T    FOUNO 

TO   O-HESSACE    OF    yORK-HSG. 


•'INITIALIZE    OUTPUT 

OF  UORK-HSG. 


01200000 
01210000 
01220000 


01230000 
01240000 

01250000 


012900* 
013000* 
013100 


013200 
013300 
013400* 


*  E.1PL0VEE 


IF  HSGCODE  EQUAL  '0011*  THEN 


••MESSAGE  TEXT  FOUHP 


01260000 
01270000 
01280000 


HOWE  'E1PL0YEE  MOT  FOUHO 
O-HESSAGE  OF  WORK-HSG. 


01290600 
01300000 
01310000 


013S00 

013600 

13700 


013800* 

013900 

014000 


IF  HSGCODE  EQUAL  *002l*  THEN 
HOVE  'EMPLOYEE  SUCCESSFULLY  ADDED 
0-HESSA6E  UF  WORK-BSS. 


01320000 
01330000 
01340000 


01350000 
01360000 
01370000 


014100 
014200* 
014300 


IF  MSGCODE  EQUAL  '0031'  THEN 

MOVE  'EMPLOYEE  SUCCESSFULLY  ERASEO 


1  014400 

1  014500 

1  014600* 

I  014700 

1  014800 

1  014900 


O-HESSAGE    OF    WORK-HSG. 


IF    HSGCODE    EQUAL     '0041'    THEN 


OllflOOOO 
01390000 

1400000 


HOVE     'EMPLOYEE    SUCCESSFULLY    UPDATED 
O-MESSAGE    OF    WORK-HSG. 

*005E* 


0I4100CC 
01420000 
01410000 


015000* 

0151CO 

015200 


IF    HSGCOOE    EQUAL     '005E*    THEN 

MOVE    'EMPLOYEE    EXISTS    ALREADYt    ADD    NOT    DONE 

O-MESSAGE    OF    WORK-HSG. 


01440000 
01450000 
01460000 


01470000 
014B0000 
01490000 


015300 
015400* 
015500 


IF    MSkCGDc    EGUAL     »006E»     THEN 

WOVE    'EMPLOYEE    DOES    NOT    EXISTt     ERASE    NOT    DONE 


O-MESSAGE    OF     WORK-HSG. 


IF    HSGCODE    EQUAL    *007E'     THEN 


"01500000 
01510000 
01520000 


*007E* 


MOVE     'EMPLOYEE" D0E5    NOT    EXIST,    UPOAfE    NUT    D04E 
015700  O-HESSAGE    OF    WORK-MSG. 

'IISSOO* '*  ..  *003I* 

015900  It    HSGCODE    EGUAL     »0U8t'    THEW 

016000  HOVE     'NO    EMPLOYEE    FOUND     IN    TABLE 

016100  O-HESSASE    OF    WORK-HSG . 


O153OO00 

01540000 

1550000 


ro  01560000 
01570000 
01580000 

on?  oooo 

TO  01600000 
01610000 
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DAT  A  SET  I     I)SM2-J.'DSN5A1i' 

ptenaem     oshsmcc 


START 
COL 


016200 

016300 

016400* 

016500* 

016600 

016700 

016800 

016900* 

017000 


017100 
017200 
017300* 


*    DEPARTMENT 

IF    MSGCODE    EQUAL     '0111'    THEN 
HOVE     'DEPARTMENT    HOT    FOUND 
O-HESSAGE    OF    WORK-NSG. 

If    1S6C0PE    EQUAL     '0121*     THEN 


017*00 
017500 
017600 


"'WE     •DEPARTMENT    SUCCESSFULLY    ADDED 
1-MESSAGE    OF    WORK-MSG. 

*Q13I* 
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01630000 

01640000 

01 65  00 '00 
01660000 
*  TO  01670000 
01680000 
01690000 
01700000 


017700* 
017800 
017900 


IF  MSGCOOE  EQUAL  '0131'  THEN 

MOVE  'DEPARTMENT  SUCCESSFULLY  ERASED 

Q-MESSA6E  OF  .JORK-MSG. 


TO  01710000 
01720000 
01730000 


018000 
018100* 
018200 


*014I* 

if  msgcode  equal  'oki'  then 

hove  'department  successfully  uppatep 


01740000 
TO  01750000 
01760000 


018300 
018400 
018500* 


O-MESSAGE  OF  WQRK-HSG. 

Tf  MSGCODE  EQUAL  '01SE'  THEN 


01770000 

01780000 

TO  01790000 


HOVE     'DEPARTMENT    EXISTS    ALREADY, 
O-HESSAGE    OF    WORK-NSG. 


ADO    NOT    DONE 
*pl6E*_ 


01800000 
01810000 
01820000 


018600  IF    MSGCODE    EQUAL     «016E'     THEN 

018700  HOVE     'DEPARTMENT    DOES    NOT    EXIST,    ERASE    NOT    DONE 

018800  O-MESSAGE    OF     WORK-HSG. 

*M?E* 


TO  01830000- 
01840000 
01850000 


018900* 

019000 

019100 


01860000 

TO  01870000 

01880000 


019200 

019300* 

019400 


IF  MSGCODE  EQUAL  '017E'  TWEN 

HOVE  'DEPARTMENT  DOES  NOT  EXIST,  UPDATE  NOT  POME 


019500 
019600 
019700* 


O-MESSASE  OF  WORK-MSG. 


IF  MSGCODE  EQUAL  '0131* 


O1890000 

01900000 

TO  01910000 


019300 
019900 
020000 


MOVE  "'CURRENT'*  OEPARTHENT  NOT  FQUNC 
O-MESSAGE  OF  WORK-MSG. 

•019E* 


01920000 
01930000 
01940000 


020100 
020200 
020300* 


IF  MSGCODE  EQUAL  *019E'  THEN 

MOVE  'NO  "HIGHER"  DEPARTMENT  EXISTS 

O-MESSAGE  OF  WORK-HSG. 


TO  01950000 
01960000 
01970000 


01980000 

TO  01990000 

02000000 


020400* 

070500 

020600 


*  GENERAL  INFO.  MESSAGES  * 


02010000 
02020000 
02030000 


1  020700 
1  020800* 
1   020900 


1^  MSGCODE  EQUAL  «050T' 
MOVE  'PROGRAM  STARTED 


021000 
021100 
021200* 


O-MESSAGE  OF  UORK-MSG, 

IF  MSGCODE  EQUAL  '0511'  TH€M 


O2040O0O 

02050000 

TO  02060000 


HOVE  'PROGRAM  ENDED 
O-MESSAGE  OF  WORK-HSG. 


02070000 
02060000 
02090000 


~021300 
021400 
021500 


IF  MSGCODE  EQUAL  »05?l'  THtS 

MOVE  »S9L  WARNING,  RETURN  CODE  IS* 
O-MESSAGE  Of  WORK-NSC. 


TO  0210000O 
02110000 
02120000 


02130000 

TO  02140000 

02150000 


JL^ 
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02i6oo»  *05.i  i* ■  ■  ■  - 

021700  IF    WS'.CODE    EQUAL     '0511*    THSN 

ggjlgg  WDVf     'HOLLBACK    SUCCiSSfUL,    ALL    UPDATES     *EMOVE0 

021900  O-MZSSAGE    OF    W0RK-<tS6.  

022000*  *0S6I* 

022100 IF    MSGCODE    EQUAL    *056I*    THEN 

022200  MOVE     «N0    MORE    DATA    TO    DISPLAY 

022300  O-HESSAGE    QF    UORK-HSG. 

022400  _^ 

*    GENERAL    ERROR    MESSAGES    * 

, . „ *060E* 

I   022800      IF  MSGCODE  EQUAL  *060E*  THEN 

1   022900      MOVE  'SOL  ERROR,  RETURN  CODE  IS; 

1   023000 O-MESSAGE  OF  WORK-MSG. 

1      023100*  "  *36lE* 

1       023200  If    HSGCOOE   EQUAL    '061E*    THEN 

1       023300  HOVg    'ROLLBACK    FAILED,    RETURN   CODE     IS= 

t       023400  O-MESSAGE    OF    WORK-MSG.      " 

1       023500*                                                                                                       *062E* 
023600  IF    MSGCODE    EQUAL     '362S«     THEN 


1  024900 
1  025000 
025100* 


HOVE     'MISSING    DETAIL    MOOULE 
O-HESSAGE    OF    WORK-HSG. 


1  023700 

1  023800 

1  023900* 

"1  024000  IF    MSGCODE    EQUAL     *063E*    FWM 

1  024100  HOVE     'HISSING    SECONDARY    SEL    NODULE 

1  024200  O-MESSAGE    OF    WORK-HSG. 

1  024300*  " *064E* 

!  024400  IF  HSGCQDE  EQUAL  '064E»  THEN 

1  024500 HOVE  'INVALID  DL/I  STC-COOE  ON  6U  HS6 

1  024600  O-MESSAGE  OF  WORK-HSG. 

1  024700*  *063E* 

1  024800  IF    HSGCQDE    EQUAL     '06SE'     THEN 


HOVE     'INVALID    DL/I    STC-COOE    Of*    ISRT    rt'SG- 
O-HESSAGE    OF    WORK-HSG. 


025200  IF    MSGCODE    EQUAL     *066E'     THEN 

025100  MOVE     'UNSUPPORTED    PFK    OR    LOGIC    ERROR 

025400  O-MESSAGE    OF    UORK-HSG. 

025500*  "  *q67e* 

025600  IF  MSGCODE  EQUAL  '067E*  THEN 

025700  MOVE  'UNSUPPORTED  SEARCH  CRITERIA  FOR  OBJECT 

025800  O-MESSAGE  OF  UORK-HSG.   " 

025900*  *068E* 

026000  IF    MSGCODE    EQUAL     '068E'     THEN 

02*100  MOVE     'INVALID    REQUEST,    SHOULD   BE    *«L"    OR    * 'i 


1       026200  O-MESSAGE    OF    WORK-MSG 

1       026300* 
~I       026  400 


IF  MSGCODE  EQUAL  '069E*  tHEN 


*069E* 


026500  MOVE     'NO    VALID    SELECTIONS    QUALIFY    FOR    THIS    REQUEST 

026600  O-MESSAGE    OF    UORK-HSG.   ■-' 

0J17TO1 S07DX* 

026800  IF    M5GC0DC    EflUAL     '070E'     THEN 

026900  MOVE     'VITAL    DATA    IS    HISSING    IN    TABLE     "TOPTVAL' 
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02160000 
02170000 

•  TQ    02180003 

02190000 
02200000 
02210000 

•  TO  02220000 

02230000 
0  2  24-00  00 
02250000 
02260000 
02270000 
02280000 

•  TO,  02290000 

02300000 
02310000 
02320000 

'  TO  02330000 
02340000 
02350000 
02360000 

'  TO  02370000 
02380000 
02390000 

0240000a 

TO  02410000 
02420000 
02430000 
02440000 

TO  02450000 
02460000 
02470000 
02480000 

10  02400000 
02500000 
02510000 
O252000O 

TO  02530000 
02540000 
02550000 
02560000 

TO  02570000 
02530000 — 
02590000 
02600000 

TO  02610000 — 
02620000 
02630000 


02640000 
TO  02650000 

02660000 
'  U2&7UUD0 

0268  0000 
TO  02690000 
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1       027  000 
1       027100* 
I       027200 

O-KESSUGE    OF    W0RK-.1SG. 

•072E* 
IF    MSGCOOE    EQUAL     »072E«     THeN 

02700000 
02  710000 

02720000 

1       027400 
1       027500* 

HOVE     'INVALID    SELECTION    ON    SECONDARY    SCREEN 
O-NESSflGE    OF    WORK-NSG, 

•073E* 

ro 

02730000 
02740000 
02750000 

1       027600 
1       027700 
1       027310 

IF    NSGCQDE    E9UAL     '073E'     THEN 

WOVE     'SPECIFIED    LINE-NUMBER    *0T    FOUND     IN    PREVIOUS    SCREEN" 

O-MESSAGE    OF    WORK-ISC. 

TO 

02760000 
02770000 
02780000 

1       027 9 OU* 

1       028009 
1       028100 

*074E* 
IF    HS6CQDE    EOUAL    •074E»    THEN 
HOVE     'DATA    IS    TOO    LONG    FOR    SEhRCH    CRITERIA 

TO 

0279000C 
02800000 
02810000 

1       028200 
1       028300* 
1       028400 

O-MESSAGE    OF    UORK-MSG. 

•075E* 
IF    MSGCODE    E8UAL     '075E*    THEN 

02820000 
02830000 
02840000 

1       028  5  00 
1       028600 
1       028700 

HOVE    'MESSAGE    F0R.1AT    ROUTINE    ERROR*     RETURN    CODE 
O-MESSAGE    OF    UDRK-fS*. 

IS!                    » 

TO 

02350030 
02860000 
02870000 

1       023800 

1       028900    PROS-END. 

1       029000*                                                                                                               "-RETURN 

TO 

CALLER 

02880000 
02890000 
02900000 

1       029100* 

1       029200 
1      02930(7 

**ENO    OF 
HOVE    0MS6    TO    OUTNSG. 
GOBACK. 

PROGRAM 

02910000 
02920000 

02930000 

1*1 


1 

) 

; 
) 
) 
> 
» 


7-36 


DATASET:    DSN1 20. OSNSAHP 
HEflBER:       0SNSMCC2 


START 

COL 


C 


_♦ 2 + 3_ 


*  COMHAREA  PART  2 


WRK  PIC  X  OCCURS  tO. 

LINE-SELECT. 
J-ME-SELECT-C   PIC  XI21. 


LINE-SELECT-P  REDEFINES  L INE-SELECT-C  PIC  99. 
PIC  99  COUP. 
PIC  99  COUP. 


TOPLINE 
TOPL-1 

CUBRLTME 


PIC  99  CORP. 
PIC  99  COHP. 
PIC  99  COUP. 


77 CURRL-1      PTC  99  COHP. 

77  BOTLINE      PIC  99  COHP. 

77  CURSOR-VALUE  PIC  S9999  COUP. 

n  hsg-iMd£X   pic  xu>. 

77.  5AVE-C0KVID  PIC  HI16I. 

77  HELPB1T ■''-■   PIC  X. 


SENDBIT 

ENOBIT 

NEXTBIT 

ON-1 

OFF-1 

PERCENT 


PIC  X. 
PIC  X. 
PIC  X. 
Pic  X. 
PIC  X. 
PIC  X 


PIC  X(70) 

VALUE  'ENTRY  HISSING  IN  TABLE  TOPTVAL*. 

OSPWF      -Pit  X(70T ■   - 

VALUE  'ENTRY  HISSING  IN  TABLE  TDSPTXT1. 
DMTA-LEN   PIC  59*91  CORP  VALUE  +79. 

EgRGR-flESSAGE. 

RLEN     PIC  S9(4»  COHP  VALUE  +632. 
ERROR-DATA. 
ERR-TEXT1   PIC  X(79l. 


10 

5 

ERR-TEXT2 

PIC  X(?91. 

10 

3 

ERR-TEXT3 

PIC  XI79I. 

10 

3 

ERR-TEXT4 

PIC  X(79». 

EKR-TEXT5 
ERR-TEXT6 
ERR-TEXT7 


PIC  XC791. 
PIC  X1791. 
PIC    XI79). 


3 ERR-TEXT8      PIC    X(79». 


3       BLANK-DEPTNO  PIC    Kl  3  »     VALUE    SPACES^ 

3       BLANK-DEPTflAHE. 
49       8LANK-DEPTNAHEL    PIC    S9(4>    COHP-4    VALUE    +3  6. 


49 BLANK-DEPTNAHED    PIC    X 1 3(41     VALUE    SPAC^ST" 
3       BLANK-f IRSTHHE. 


^9    blank-firstnhel  pic  s9(u  comp-4  value  +12. 
'9    blanx-firstnhed  pic  xu2i  value  spaces. 
blshk-hioinit      "pic  x(l)  value  spaces. 

bLank-IaSTnahe. " 

9    3lank-lastnahel  pic  s9c4i  c0hp-4  value  +15. 
9    blank-lasthahed  pic  xu31  value  spaces. 
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0001000$ 

000200GO 
00030000 
00040000 
00050000 
00060000 

""00070600 
00080090 
.00090000 
00100000 
001X0000 
00120000 
00130000 
00140000 
00150000 
00120000  ' 
00170000 
00180000 
00190000 
00200000 
OC21000Q 
00220003" 
00230000 
00240000 
00270000 
00280000 
00290000 
00300000 
00310000 
00320000 
00330000 
00340000 
00350000 

~B0360000~ 
00370000 
00380000 
00390~000~ 


00400000 
00410000 


00420000 
00430000 
0044  0000 


00450000 
00460000 
00470000 
00480000 
00490000 
00500000 


00510000 
00520000 
00530000 


00540000 
00550000 
00560000 
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BflTASCT!     D*.Nl,!O.DSNSA.i?                                                                                                                      DflTE:     87/0^/12 
-CfWfll       SiKSlKI                                                                                                                                          riMl     17:J6' 

7                        ****«    OSNSftCl    -    5'lt     I    CQWIUN    MODULE    FOR     IMS    AND    CICS    -   COBOL    **•*    00010000         "    "   """ 
1                       *                                                                                                                                                                             *    00020000 
7                       •    f*8»ttt.6    NAME    =    ISKKACI                                                                                                                 *    00030000 

1                        *                                                                                                                                                                             *    00040000 
7                       *    DESCRIPTIVE     NAME    =    D92    SAMPLE    APPLICATION                                                          *    00050000 

7                *                                     •  sol  l  cannon  module                                              *  00060000 

*                        *                                                        IMS    c    CICS                                                                                          *    00070000 
1                       *                                                        COBOL                                                                                                         *    00080000 

/                        *    COPYRIGHT    «    5740-XYR     (C)    COPYRIGHT    IBM    CORP    1932,    1985                        *    00100000                                 

*    REFER    TO    COPYRIGHT    INSTRUCTIONS    FOR*    NUNRCR    G12O-20SJ                          *    00105000 

/                        *    STATUS    =    RELEASE    2,     LEVEL    0                                                                                                *    00120000 
I                       *                                                                                                                                                                             *    00140000 
7                       *    FUNCTION    =    RETRIEVE5    LAST    CONVERSATION.                                                                *    00150000 

7                       *                                  HANDLES     'RESENb*     AND    *ENO»    CASES.                                                   *    OOI60000 
7                       *                                  CALLS    VALIDATION    ROUTINES    DSN8flC3    THRU    DSN8NC5.             *    00170000 
7                       *                                  CALLS    S9L2    ROOT    (0SN8CC2    OR    DSN8IC2),                                        1    00180000 

'                        *                                                                                                                                                                             *    00190000 
7                       *    NOTES    =       NONE     .                                                                                                                                  »    00200000 

7                       *    MODULE    TYPE    *                                                                                                                                       *  "66220000 

7                       *                PROCESSOR         =    DB2       PRECOMPILER,     VS    COBOL                                                  *    00230000 
7                       *               MODULE    SIZE    =    SEE    LINKEDIT                                                                                        *    00240000 

f                       *               ATTRIBUTES       =    REUSABLE                                                                                                   *    O0250ff?j(J 

1                       *                                                                                                                                                                             *    00260000 
7                       *    ENTRY    POINT    =    0SN8MC1                                                                                                                 *    n<l77nnnn 

*               PURPOSE    =    SEE    FUNCTION                                                                                                   .    OOTSTJOOO 

1                        *               LINKAGE    =    INCLUDED    BY    flOPULE    DSrtSICl    OR    DSN8CC1                                *    00290000 

t                        •                INPUT    =    PARAMETERS    EXPLICITLY    PASSED    TO    THIS    FUNCTION:             *    00310060 
7                       *                                     SYMBOLIC    LA3EL/NAME    "      NONE                                                                *    00320000 
7--                   *                                     DESCRIPTIPN    =    NONE                                                                                        *    00330000 

,                                                                                                                                                                                                      *    OO34CC0O 
7                        *               OUTPUT    =    PARAMETERS    EXPLICITLY    RETURNED:                                                   *    00350000 
7                        *                                       SYMBOLIC    LABEL/NAME    «       NONE                                                             *    00360000 

'                       *                                        DESCRIPTION    =    NONE                                                                                     *    06370000" 

I ■                     *                                                                                                                                                                             *    00330000 
7                       *     EXIT-NORMAL     =    DROP    THRU    TO    NEXT    LINE    OF    CODE    IN    DSN8CP1/IP1          *    00390000 

'                        *                                                                                                                                                                             *    00400000 

•    EXIT-ERROR    =     IF    SOLERROR    OR    SQLWARtING,    SOL    WHENEVER                             *    00410000 

i *                                        CONDITION    SPECIFIED    IN    DSNSCCl/ICl    HILL    BE    RAISED*    00420000 

'                                                                 flND    P30GRAH    yiLL    GO    TO    THE    LABEL    DB-ERROR.                     *    60436066       ' 

\                     *                                                                                                                                                            *    00440000 
i *    ooisnnnn 

i                        ■               RETURN    CODE    =    NONE                                                                                                              *    00440000" 

l                     *                                                                                                                                                            *   00470000 
7                        *               ABEND    COOES    =    NONE                                                                                                              *    00480000 

;                                                                                                                       *  60490000 

7                       *               ERROR    MESSAGES    ■                                                                                                                   .    00500000 
7                       *                                                        0SN^O51L  .-    PROGRAM    ENDED                                                     *    00510000 

£                   *                                                                                                                                              *   00520000 
7                        *    EXTERNAL    REFERENCES    =    HOST    VARIABLES    ARE    GLOBAL    ANO    DEFINED          *    00530000 

7                *                                             IN  KNttCl/lcl.                                                »  nnstnooo 
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7         *      ROUTINES/SERVICES  =                                          *  00*50000 
7        *            INCLUDING  BSH8HCS  THRU  &S1WIC$»                    *  00540000 
7         *              DSN8MCG   -  EWRUR  MESSAGE  ROUTINE                     *  00570000 

ft,                                                                                                                                                                              *  00530000 
7         *      DATA-AREAS  *   NONE                                          *  00590000 
7        *                                                            *  00600000 

7         *      CONTROL-SLOCKS  ■      .                                       *  00410000 
7         *         SQLC4            -  S«L  COMMUNICATION  ARSA                 *  00620000 
7         *                                                                   *  00630000 

7         *      TABLES  =   NONE                                               *  00640000 
7         *                                                                   *  00650000 
7       .   *      CHANGE-ACTIVITY  *   NONE                                     *  00460000 

7         *                 ■                                                   *  00670000 
7        *                                                            *  00680000 
7         *  "PSEUDOCODE*                                                     *  00690000 

7    .     *                                                                   *  00700000 
7         *   PHOCEOURE                                                       *  00710000 
7         ♦    ELIMINATE  LEADING  BLANKS  ON  DATA  LINE  IF  NOT  ALL  OF  DATA     *  00720000 

7         *    LINE  IS  BLANK.                                                 *  007J0000 
7         *                                                                   *  00740000 
7         *    SET  UP  CONTROL  FLAGS  FOR  'RESEND'  'END'  *NEXT*                *  007SOOCO 

7         *        FIRST  BY  EXAMINING  THE  DATA  LINE  AND  THEN  COMPARING  THE  *  00760000 
7         *        PF  KEYS  tCONPARN.PFKINI                                   *  00770000 
7         *                                                                   *  00780000 

7                       *          RETRIEVE  LOST  CONVERSATION  IFROfl  VCONA.l                      *  00790000 
7         *                                                                   *  00800000 
7         *    IF  LAST  CONVERSATION  IS  NOT  FOUND  THEN  DO.                    •  00810000 

7         *        COMpARN.NEUcONtf  =  'V».                                    *  00820000 
7         +        PCONVSTA         =  *•  .                                     *  00830000 

7         *    END.                                                            *  00840000 

7         *    EL5E  DO.                                                       *  00360000 
7         »        PCO"JVSTA  =  LAST  CONVERSATION  RETRIEVED.                   *  00870000 

7         *        IF  RESEND*  BYPASS  VALIDATION  AND  SAVE*  JUST  RESEND.      *  00880000 
7         *        IF  END.  DELETE  CONVE RS AT  ION |  SEND  MESSAGE  C    GOTO  CClEXIT*  00390000 
7         *        IF  NO  SYSTEMS  FIELD  WAS  CHANGEOf  BYPASS  VALIDATION.      *  00900000 

7         *    END!                                                            *  UU910000 
7         *                                                                   *  00920000 
7         •    UHILE  RETURN  CODE  IS  0  00                                     *  00930000 

7         *        CALL  VALIDATION  MODULES  DSN8MC3  THRU  DSN8HC5              *  00940000 
7         *    OTHERWISE                                                      *  00950000 
7         *        GO  TO  MC1SAVE.                                             *  00960000 

7                       +                                                                   *  00970000 
7         *    GO  TO  C01CALL  IN  DSNSCC1/IC1  TO  CALL  DSNBCC2/IC2.             *  00980000 
7         *                                                                   *  00990000 

7         *  MCtSAVE:                                                          *  01000000 
7         *    INSERT/UPDATE  CURRENT  CONVERSATION  INTO  VCQNA.                *  01010000 
7         *                                                                   *  01020000 

7                       »  END.                           '                                   *  01030000 
7         *                                                                   *  01040000 

7         •                                                                  *   01070000 
7         *           INITIAL  EDITING  FOR  DATA  INPUT                        *   01080000 
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STAKT 
COL 


aire:   87/02/12 

Tt1£:  17=56 
P4GE:  3 


-1 * 2- 


-5 + 6- 


1.  THE  DATA  LINE  IS  SHIFTED  LEFT  UNTIL  ALL  LEADING  I1LANKS 
HAVE    BEEN    ELIHINATED. ___ _        ____„^__ 

2.  THE    APPROPRIATE    BITS    FOR     'RESEND' , • END*    ETC. ".IRE     THEN 
SET    ACCORDING    TO    INPUT    ON  DATA    LINE. 

3.  IF  PFKEYS  1,2»  OR  8  HAS  BEEN  USEDr  THE  APPRO P RIATE  BIT 
IS  SET  FOR  »R£SEND»  »END*  ETC..  THIS  TAKES  PRECEDENCE 
OVER    THE    SETTING    OF    THE    SANE    .UTS     IN    STEP2.* 

*          I.E.     IF    SOHEONE    TYPES    IN    'RESEND*    ON    THE    DATA    LINE    SHT 
USES   THE    PF1    KEY    AT    THE    SANE    TINE*    THE    PF1    1ENDI 
FUNCTION    IS    ASSUrtED    TO    BE    THE    ACTUAL    REQUEST. 


******* 

DSN3HC1. 
************ 


********** 


*********************  ******* 
**INITIAHZE    CONTROL    FLAGS 


01090CC;- 
01100:0 > 
OlllOOOO 

on  200  j -j 

01130000 
011400C0 
01150001  " 
01160000 
01170000 
011800-30  " 
0119000") 
OIZOOOCO 


************ 


HOVE 
HOVE 


TO  OFF-1. 
TO  ON-1. 


N0V6    »0»     TO    SENDBTT. 
HOVE     »0»    TO    ENDBIT. 
HOVE     '0'     TO    NEXTBIT. 


HOVE     '0SN8HC1'     TO    HAJOR    IN    DSN8-MQDULE-NAHE. 


01300000 

0131000 

013200C 


IF    DATAIN    IN    INAREA    =    SPACE    THEN    SO    TO    MCl-18 
HOVE    0    TO    1. 

***•********************£ *********  ************ 


013300S5~~ 

01340000 

01350000 


•GET    RID    OF    LEADING    BLANKS    IN    OATA 


01360000 
01370000 
01380000 


ADD  1  TO  I. 


•SKIP  LEADING  BLANKS 
**IF  ALL  OF  LINE 


01390000 
01*00000 
01410000 


IF  I  >  60  THEN  GO  TO  HC1-1B. 


••IS  OF  BLANKS 
••SEE  IF  A  CONTROL 
••FLAG  IS  SET 


01420000 
01430000 
01440000 


"ororoo'or 

01460000 
01470000 


HC1-L00P10. 
PERFORM 


••MC1-10  LOOP 


01480000 
01490000 
01500000 


UNTIL  DATAINKII  NOT  =  SPACE. 


IF  I  =1  tHEN 

GO  TO  HC1-18. 
WOVE  1  TO  J. 


01510000 
01520000 
01530000 


••IF  FIRST  CHARACTER  IS 
••NON-BLANK*  SEE  IF  A 
••CONTROL  FLAG  IS  SET 


01540000 
01550000 
01560000 
01570000 
01580000 
01590000 
~OT50"0000 
01610000 
01620000 


,7-4Q  : 


start 

COL 


DATE:     S7/02/12 
TIME:     17=36 
PAGE:    4 


NCl-t.fl  ii»I2. 
JKTIfc  I  > 


"GET  NQN-3LANK 
"CHARACTERS 


••HC1-12  LOOP 


IflV*  SfACE 

*aj   l ,  ro  j. 


)  OATAINKJI. 


.1C1-L3IT14. 


if  fa  M   ri  c  i  -  f^- 

UNTIL  J  >  60 


CONTROL  FLAM  FOR  'RESEND* 


01630000 
014*0000 
016S0000 
01660000~ 
01670000 
01630000 
01690000 
01700000 
01710000 
01720000 
01730000 

01740000 

01750000 
01760000 
*»PUT  BLANKS  AT  EWP    01770000 
**0F  Line  "tFITSo'Ooo" 

01790000 
01300000 

~o~iaioooo 

01820000 
01330000 
018*0000 
01350000 
01860000 
01H73000 
01880000 
01390000 


•NC1-14    LOOP 


If    dATAl.1 


PFKIN     IN     INAREA 
MOVE    OM-1     TO    SEND3IT 


UlVOOOOO 

01910000 

**RESEND 

COMMAND 

nit 

01920000 

**PF 

KEY 

02 

0l930000 

ELSE 

IF     DATAIN 


01940000 
01950000 


01960000 

01970000 

•  •END    COflWAMD    OR  01980000 


PFKIN     IN     INAREA        =     • 
MOVE    QN-t     TO    EN3HIT 

~eTse 


02000000 
02010000 


IF    OATAIN    =     »NEXT» 


07020000" 
02030000 
••NEXT    COMMAND    OR  02040000 


?FKIN     IN    TNAREA       =     '03 
flOVE    f]N-l     TO    NEXT3IT. 


070TO~000~ 

02040000 

02070000 


02080000 
02090000 
02100000 


RESTORE    LA5T    MESSAGE    AND    DETERMINE    IF     VALToVMON    IS    NECESSARY    •    O2U0O00 

*    02120000 
1.    ATTEMPT    TO    RETRIEVE    LAST    HFSSAGE    STORED    IN    VCONA.     IF  *    02130000 

HOT    SUCCESSFUL,     THEN    CONVERSATION    IS    NEJ. 

?.-     IF    RETRIEVAL    IS    SUCCESSFUL,     THEN    TRANSFER    THE    DATA 

INTO    PCONVSTA. 


^"OTTtOODO- 

•  02150000 

•  02160000 
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1EM9{*:       »=,**MC1 


START 
COL       


-1 * 2  — 


QATE:     "J7/02/12 
riflCs    17:  16 
PASEi    5 


IF    PESIND    REQUEST, DON'T    VALIDATE    6    DON'T    SAVE, JUST    RESENlf  *    02170000 

END    RELUEST, DELETE    CDNVE RSAT ION, SEND    END    MESSAGE,     EXIT  *    02130000 

ALL    SYSTEM    FIELDS    HAVE     HOT    CHAHSED    SINCE    THEY    gggj      _  »    021900DQ 
BYPASS    VALIDAI [ON 


LAST    SAVED,    BVPASS    VALIDATION         ALSO, 
OTHERWISE    VALIDATE    EACH    OF    THE    SYSTEM    FIELDS. 


HOVE     *H*     TO    NEWREtJ    r*    COMPARM. 

MOVE    CONVIP    IN    PCQNVSTA     TO    SAVE-COHVID. 

HOVE     •«•     TO    NEWCONV    IN,    CONPARM. 

EXEC    SQL    SELECT       * ^^ 

INTO       :PCOMA 
FROM       VCONA 
WHERE    CqNVIP    = 


IF    SOLCGDE    =    +100    THEN 

HOVE     'Y'     TONEWCONV    VI    COHPARH 


MOVE    SPACE    TO    PCQNVSTA 

MOVE     SAVE-CONVID    TO    CONVIO    IN    PCONVSTA 

MOVE    SAVE-COMVID    TQ    CONVID    TN    PC ONA 


02200000 
02210000 
02220000 
02230000 
02240000 
02250000 
02260000 
02270000 
02280000 
02290000 
02300000 
02310000 
~"OT3  2~5i50~0— 
"RETRIEVAL    NOT    SUCCESSFUL-  02330000 

^INITIALIZE  TO  NEW  CONVERSATION,  02340000 
02350000 
02360000 
02370000 


SAVE-CONVIP    END-EXEC. 


MOVE     •DSN8001 
GO    TO    MC1-VAL. 


TO    LAST5CR    IN    PCONVSfF" 


"023S06OO 
02390000 
02400000 


10VE    LASTSCR       IN    PCONA    TO    LASTSCR       IN    PCONVSTA- 

MOVE    LrtSTPOS       IN    PCONA    Til    LASTPOSO    IN    PCONVSTA 

fHWE    LASTPOSC    IN    PCONA    TO    LASTP05C    IN    PCONVSTA 


"RETRIEVAL    SUCCESSFUL-- 
**TRHNSFES    DATA    TO    PCONVSTA    02450000 
02460000 


MOVE    LASTMSG-TEXT       IN    PCONA     73    OUTAREAOT 


02470000 
02480000 
02490000 
02500000 


02510000 
*IF    CONVERSATION    EXISTS    BUT    OATA    02520000 


•ENTERED    FROM    CLEARED    SCREEN, 
*THEN    TREAT    LIKE    RESEND 


IF    PFKIN    IN    INAREA    =     '00'    OR 

5ENDBIT    =    ON-1     THEN    GO    TO    CC1-EXIT. 


Q253005?n 

02540000 

02550000 


02560000 
02570000 
02580000 


U2i 80000 

*MF    END    REQUEST    THEN    DELETE    CON-    02590000 


IF    END3IT    NOT    8    ON-1    THEN    GO    TO    *1Cl-50. 

MOVE     'OELETE       •     TO    MINOR    IN    DS N8-M0D ULE-NAHE 
MOVE    M»     TO    EXITC0D6 


-•VERSATION  AND  SFND  ENO  MESSAGE  02600000 
02610000 
02420000 


MOVE    SPACE    TO    OUTAREA" 
EXEC    SOL    DELETE,, 
FROM       VCONA* 


WHERE    CO*VlD    =     :p^'OP'H.C0NV!d    £T*D^OTC_ 


'PRINT  MESSAGE: 


02630000 
02640000 


02650000- 

02660000 

02670000 


0755OOT0- 

02690000 

02700000 
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**pru6rai1   ended 
•os  1 1  •   to  15scobe 

_cau.    'danbncc    using   major  nsscooe    3utms6 

j*oVe  outhsg  to nsg'in  outasea. 

move  najsys   in   inarea     to  najsys     in  outarea. 

GO    Til    CCl-EXIT.  


**IF    OLD    CONVERSATION    AND    SYSTEH 
**FIFLt>S    HAVE    NOT    CHANGED    THEM 
»»BVPa5a    VAlIOAIION 


02  te.CT    IN    INAREA    NOT 
SHC.l  IN     INAREA     NOT 

GO    TO    NCI-VAL. 


IfPfifV    IN    PCONVSTA    - 


O&JECT    IN    OUTAREA    OR 
SftCH  IN    OUTAREA    THEN 


*•    OLO    CONVERSATION 


DATE:     37/02/1  > 
TIN*:     17:36 
PAGE:     6 


O27IOOO0 
02720000 
02730003 
02740000 
.02750000 
02760000 
02770000" 
02780000 
02790000 
02800000" 
02810000 
02S200CO 
02830000 
023*0000 
02850000 
028i000C~ 
02870000 
02880000 
02890000 
02700000 
02910000 


15 

DAT/UN  IN  INAREA  NOT  -  DATAOUT  IN  OUTAREA  THEN             02920000 

NOVE  »Y*     TO    NEWREO  IN  CONPARN.                               02930000 

IS 

GO  TO  NC1-90TH.                                              02940000 

****** •* ****************** ****************************** **********  Q^9!)0OCO 

******************** 


02960000 
02970000 


3 

NC1-VAL. 

02980000 

MUVE  *¥*  TO  NEJRcQ  IN  CQNPiSh. 

02990000 

HOVE  NAJSYS  IN  INAREA  TO  NAJSYS  IN  OUTAKcA. 

03000000 

WOVE  0-1JECT  IN  INAREA  TO  09JECT  IN  OUTAREA, 

03010000 

SUCH     IN  IN 
SPACES 


NOTE     SPACES 


TO    SRCH         IN    OUTAREA. 

TO    PESO       IN    OUTAREA. 

"TO    DEST4"       IN- QDTAREA. 


PERFORM     05NHMC3     THRU     E NU-DS N3*C3 

IF     ^ETCOOf    =     •!•     THEN    GO    TO    NCI-SAVE. 


**       VALIDATE    ACTION 


PE*FORri    OSN8NC4     THRU    EN0-PSN3NC4. 

IF    SETCODE    *     •  !■     THEN    GO    TO    NCI-SAVE. 


**       VALIDATE    OBJECT 


**        VGLIDATE     SEARCH 


PERF0R1    OSN8MC5    THRU    END-DSN3NCS. 

IF     REICODF.     =     «TT-fHE-N    G0     TO     HCl-SA'VF.' 


•If     ALL     SYSTEM    FIELPS    ARE    OKi     CONTINUE 


03020000 
03030000 

""GIoTffrJBo" — 
03050000 
01060000 
03"0700ff0 — 
03080000 
03090000 

"  0 3TTFGO00" 
03110000 
03120000 
0~JnoTJOO~ 
03140000 
03150000 
03160000 
03170000 
03180000 

crjnaooo    " 

03200000 
03210000 
03220000 
03230000 
03240000 
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TIME:     17:36 
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*«)£<)  REQUEST 


I  (*RF  V  r-1  PCONViTrt  -  SPACE  I  <]* 

-U_"J    j    LS   PCONvsra    =    «5*    I    *:<$ 

I     DA  HOI     IN    1NAREA    NOT"  =    SPACF1    AND 
I     NE A HIT    »    OFF-1     ) 1     THEN 
HOVE     'V     TO    NEWREQ     IN    COMPARN. 


**SQ  TO  CC1-CALL  WHERE  P  CALL 
*«TQ  EITHER  jjSjWCCj  OR  3SN3IC? 
**IS"pERf ORNED. 


********** 


**DSN5CC1     OR    DSN3IC1    UILL 
»*3RANCH    BACK    TO    NC1SAVE    AFTEtt 


**CALLING    5QL2.    AT  "NClSAVEt 
**THE    DATA    RETURNED    IV    SQL2    OR    THE 
"VALIDATION    ROUTINES    UILL    BE 
"SAVED    IN    VCONA 


.10  VE 
MOVE 
MOVE 
HOVE 
MOVE 
NGVE 


+  160? 
OUTPftgflO 

CO'IVTO 
LASTSCR 


IN    INAREA 


IN    PCONVSTA    TO    C3NVID 
IN    PC01IVSTA     TO    LA5TSCR 
LBSTPOSO    IN    PCONVSTA    TO   LASTPOS 


TO    OATAOUT       IN    OUTAREA. 
TO   LASTNSG-LSN. 
TO    L^STMS€-TEXT. 


~TN~PCONA. 
IN  PCONA. 
IN    PCONA. 


LASTPOSC     IN    PCONVSTA    TO    LASTPOSC    tH    PCONA^ 

•MC1SAVS1  TO    1IN0S  IN    3SNS-H00ULE-NANE. 


IF    NEVCUNV    =     •¥•     TH^^ 

EXEC     SQL     INSERT 

INTO  VCCIA 

VALUES     I C PCONA I 


NE'JCONV    -JOT    =     •¥»     THEN 
EXEC     SOL     UPDATE     VCONA 


"INSERT    NEW    VALUES 


* U P  DAfE    OLD     VALUE~3~~ 


LASTSCR 
LASTPOS 
LASTPOSC 


=  :PC0NA.LAST5C3    « 

=  :PCONA. LASTPOS     , 

=  :PCONA. LASTPOSC     , 

=  : p  c  3 N 6  .IAS fWSC 

:SAVe-CJNVID  END-EXEC 


*  03370000 
03380000 
03390000 
03  40OT5OTJ- 
03410000 
03420000 
03*30000 

'  03440000 
03450000 
03460000 
03470000 
034S0OOO 
03470000 
03500000 
03510000 
0J520000 
0J530000 
03540000 
03550000 
03560000 
03570000 
03TSOOOO 
03590000 
03600000 
0U10000- 
03620000 
03630000 

~0754~0~OCo™ 
03650000 
03660000 
036700~00~~ 
03680000 
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USNI  .^O.  USNIAilP 


OflTE:    47/02/12 
TIME:    17:36 

PAGE: 


'*"    dsnsh::    -   SIL    I    CQMfliJN   MODULE   fi)R  "ws    IND   CICS   -  cobol    ** 
pflame  saxe  »  psmhmci ^^^_^_^ 

DESCRIPTIVE     -JANE    =    032    SAMPLE    APPLICATION 

SSL    1    CONHON    MODULE - 

IIS    £    CICS 

co:iot. 


COPYRIGHT    =     5740-XYR     (CI    COPYRIGHT    IBB    COUP    1982,    \~9sV~ 
PFfER    TO    COPYRIGHT    INSTRUCTIONS    FOR*    NUMBER    C12O-20S3 


STATUS    =    RELEASE    2,    LEVEL    0 

FUNCTION    =    RETRIEVES    LAST    CONVERSATION. 


1 3 

"oooToof.o" 
ooo2or^o 

00030001 
OOO400CO 
00050000 
00060000 
00070000 
00030000 
O0U9Q0C0 
001000CO 
00105000 
00110003 


HANDLES     MffSENO*     Afi!)     «ENO*     CASES. 

CALLS    VALIDATION    ROUTINES    DSN3.1CJ    THRU    DSNSMC5. 

CALLS    58L2    ROOT    IDSNJCC2    OR    DSN8IC2I. 


00120000 
00140000 
00150000 


00160000 
00170COO 
00180000 


NOTES  =   NONE 


NODULE  TYPE 


0bl9  0"C0tT" 

00200000 

00210000 


PROCESSOR    =  032   PRECOMPILER,  WS  COBOL 
NODULE  SUE  =  SEE  HNXEDIT 


ATTRIBUTES   =  REUSABLE 
ENTRY  POINT  =  DSN3NC1 


00220000" 

00230000 

00240000 


PURPOSE  =  SEE  FUNCTION 

LINKAGE  =  INCLUDED  RY  MODULE  DSN8IC1  OS  DSN8CC1 


OO25"00<5<>~ 

00260000 

00270000 


INPUT    =    PASA1FTERS    EXPLICITLY    PASSEQ    TO    THIS    FUNCTION: 
SYi-dOUC    LA3EL/NANE    =       NONE 
DESCRIPTION    =    NONE 


_DO2SCO'0O 
00290000 
00300000 


OUTPUT    =    PARAMETERS    EXPLICITLY    RETURNED 
5V.130LIC    LABEL/NAME    =       NONE 


DESCRIPTION     =     NONE  i 

EXIT-NORMAL     =    DROP    THRU    TO    NEXT   LINE    OF    C03E    IN    0SN8CP1/IP1  * 

EXIT-ERdOR    =     IF    50LERROR    OR    SDLUARNING,    SOL    WHENEVER  » 

CONDITION    SPECIFIED    IN    DSN3CC1/IC1    WILL    flE    RA I SE 0 * 


00310000 

00320000 

00330000 

00340000  " 

00350000 

00360000 


0037O0QG- 

00330000 

00390000 

~00<OEH)0~B~ 

00410000 

00420000 


ERROR    MESSAGES    =,  g 
,  DSNS05U--    PROGRAN    ENPEP 


EXTERNAL    REFERENCES    =    MOST    VARIA9LES    ARE    GLOBAL    AND    OEFINEO 
IN    0SN8CC1/IC1. 


"O"O49OO0<J 

00500000 

00510000 

30T200fl0— 

00530000 

00540000 
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[        STArff' 


DATE  : 
PAuE: 


_7 «. g 


/■                       h.. -|SN9CC1    -    SJL     1    MAINLINE    FOR    CICS    -    C03GL     ************    00O10OOO 

7                       *                                                                                                                                                                              »    00020000 
7                       *    ttOflUL*    NA.1E    =    DSNSCC1                                                                                                                  *    C0030000 

t                       *                                                                                                                                                                              *    00040000 
7                       *    OESCRIPTIVE    NAME    =    DB2       SAMPLE    APPLICATION                                                        *    00050000 
7                       *                                                        Sat    1    MAINLINE                                                                                *    00060000 

/                       *                                                        CICS                                                                                                            *    00070000 
7                        *                                                        COBOL                                                                                                         *    00080000 
7                       *                                                                                                                                                                              *    00090000 

7                       *    CflPV^nmr    -     5740-XYR     (CI    COPYRIGHT    ISM    CTSP     1982f     1935                       *    00100000 

7                       *       REFE*    TJ    COPYRIGHT     INSTRUCTIONS    FORM    NUMBER    C120-2033                       *    00105000 

17*                                                                                                                                                                              *    OOllUOOO 

7                       *    STATUS    «    RELEASE    2,    LEVEL    0                                                                                                 *    00120000 
7                       *                                                                                                                                                                              *    00140000 
7                       *    FUNCTIf    =     THIS    MUDULE    PERFORMS    THE     INCLUDES    TO    BRING    IN    THE       *    00150000 

7                       *                                  SQL    TABLE    0CL5    AND    DCLSEN    STRUCTURES    AS    WELL    AS            *    00160000 
7                       *                                  THE    PARAMETER    AREA.                                                                                         *    00170000 

7                *                                                                                                                        *  ooiaoooa 

7                       *    NOTES    *                                                                                                                                                        *    00190000 
7                       *          DEPENDENCIES    =    CALLED    BY    DSN3CC0,     CALLS    DSN3CC2ICICS    LINKS).*    00200000 
7                       *          RESTRICTIONS     =    NONE                                                                                                                  *    00210000 

T                    *                                                                                                                                                            *    002200GO 
7                     *                                                                                                                                                            i    00230000 
7                       *    NODULE     TYPE    =                                                                                                                                       *    00240000 

7                       *            PROCESSOR         =     DB2    PRECOMPILER »CIC S    TRANSLATOR tCOBOL    COMPILER    00250000 
7                       *            MODULE    SIZE     =  ~.S££    LIN<_EDIT                                                                                         *    00260000 
7                       *            ATTRIBUTES       =    REUSABLE                                                                                                      *    00270000 

7                     *                                                                                                                                                             t.    00280000 
7                       *    ENTRY    POINT    =       0SN3CC1                                                                                                               *    00290000 
7                       *            PURPOSE    =    SEE    FUNCTION                                                                                                      *    00300000 

7                       *            LINKAGE    =     INCLUDED    »V    MODULE     DSN5NC1                                                                *    OOJIOOOO 
7                       *                                                                                                                                                                              *    00320000 
7                       *             INPUT       -     PArtOiFTERS    FXPLICITLY    PASSED    TO    THTS    FUNCTION:            *    00330000 

'                       *                                                                                                                                                                              *    00340000 
7                       »                                  SYMBOLIC    LABEL/NAME    =    NONE                                                                     *    00350000 
7                       *                                  DESCRIPTION    ■    NONE                                                                                           *    00360300 

>                     *                                                                                                                                                             *    00370000 
7                       *            OUTPUT       =    PARAMETERS    EXPLICITLY    RETURNED:                                                   *     00320000 
7                       *                                                                                                                                                                              *    00390000 

7                       *                                     5YM3DLIC    LABEL/NAME    =    NONE                                                                   *    00400000 
7                       *                                     DESCRIPTION    *    NONE                                                                                         *    00410000 

7                 *                                                                                                                                   *   no*?nofio 

7                       *    EXIT-NOPMAL     =    DSN3CC0                                                                                                                 *    00430000 
f                       *                                                                                                                                                                              I    00440000 
7                       *     EXIT-EaROl    =    DSN3CC0                                                                                                                    *     00450000 

7                   *                                                                                                                                              *   004&0000 
7                       *               RETURN    COOE    =    NONE                                                                                                               *    00470000 
7                     *                                                                                                                                                            *    OOiRfioon 

7                       *                                                         "                                                                                                                 *    00500000 
7                       *               eSROK-MESSAGES    •       NONE"                                                                                                 *     00510000 

7                       *                                                                                                                                                                              *    00520000 
7                       *    EXTERNAL     REFERENCES    =                                                                                                                  »    00530000 
7                       *          RPUTINEJ/SERVICES    =       DSNflCC?                                                                                         •    00540000 

7-,  46 


H 


DATE:  87/02/12 
Tl.ie:  17:18 
PAGE:  2 


1 

7 

7 

7 

*           ')ATA-ft[<EAS     =                                                                                                                                                     4 
>                     IJSSMCCfl                             -    COBOL    STRUCTURE    FOR    DFHCOIHAREA               * 

00550000 
00560000 
00S70C03 

f    ; 

*  OSNSMCCS                             -    VCONA    TABLE    OCL    AND    PC0N4    OCLGEN             * 
»                     DSNSMCC2                             -    COMMON    AREJ*    PART    2                                                   » 

*  DSN8NC0V                             -    VOPTVAL    TABLE    DCL    t    PDPTVAL    DCLGEN       * 

00580000 
00590000 
00600000 

) 

7 
7 

*  DSN8HCV0                            -    FINOS    VALID    OPTIONS    FOR    ACTIONt                * 

*  OBJECT.    SEARCH    CRITERIA                                     * 

*  DSN8MC1                                -    SOLI    COHNON    HODULE    FOR    INS    AND    CICS    * 

00610000 
00620OCO 
00630000 

> 

1                 ^ 

7 
\                7 

*  DSN8NC3   -    DSfi8r.C5    -    VALIDATION    NODULES    CALLED    SY    DSH8HC0* 

*  DSN3NCXX                             -    SOL    ERROR    HANDLER                                                     * 

00640000 
00650000 
00660000 

> 

7 
7 
7 

*  CONTROL-BLOCKS    =                                                                                                                          * 

*  SULCA                                     -    SOL    C0.1NUNICAUON    AREA                                        * 

00670000 
00680000 
00690000 

> 

7 
,                7 

*  TABLE*    ■    NONE                                                                                                                                        * 

*  CHANGE-ACTIVITY    =    NONE                                                                                                               * 

007COOOC 
00710000 
00720000 

7 

7 

*       *PSEUDOCCDE*                                                                                                                                        * 

OO7300OO 
00740000 
00750000 

7 
7 

*  PROCEDURE                                                                                                                                        * 

*  INCLUDE    DECLARATIONS.                                                                                                    * 

00760000 
00770000 
00780000 

7 
7 

*                  INCLUDE    E1R0R    HANDLER.                                                                                                  * 

00790060 
00800000 
00310000 

7 
7 

*                       EXEC    CICS    RETURN.                                                                                                          * 

00320000 
00830000 
00840000 

7 

*  CCICALL:     1     REFE^ENC^D    PY    DSN3HC1     1                                                                 * 

*  EXEC    CICS    LINK    PROG  RANI *DSN3CC2 ■  1                                                         * 

*  COrt.tAREAIDFHCOJINAREAl  .                                      * 

OO3S0OOO 
00860000 

0G27O00O 
00380000 
00890000 
00900000 

7 
7 
7 

*  GO    TO    MClSAVE.       (LfiDCL     IK    DSN3HC1)                                                         * 

*  INCLUDF    VALIDATION    10DULES.                                                                                    *■ 

7 

7 

*                END.                                                                                                                                                      * 

00910000 
009200CO 
00930000 

7 
3 

PR  0G«  All-ID.     DSN8CC1. 

00940000 
00950000 
00960000 

tt 
7 

ENVIRONMENT     RIVISTON. 

00970000 
00980000 
00990000 

a 

7 

OATA    DIVISION. 

01000000 
01010000 
01020000 

7 
7 

WOaKING-STORIGE     SECTION. 
*                     *     DECLARE     FIELD'  >ASSFD.  TO    MESSAGE     ROUTINE                                                   * 

01030000 
01040000 
01050000 
01060000 
01070000 
01030000 

7 
7 

*  *    DECLARE    CONVERSATION    STATUS                                                   F 

*  *    DECLARE    MESSAGE    TEXT                                                                                                 * 

*  *    DECLARE    OPTION    VALIDATION                                                                                   • 

.7-47: 


H 


UATE  =     37/0>/12 
MME:     17=13 
PICE:     3 


c 


-4 »■ 5- 


-6 + -7- 


*    DECLARE    COMMON    A4EA    HhO    C31  liSf!    AREA    PARI    2~ 
01    HSGCOPE  flC    Xf 04) ■ 


01     DUMSG 


FXeC    SOL     INCLUDE    ~DSN*MCCS  END-EXEC." 

FXfEC     SOL     INCLUDE    DSN$Mcn'/  END-EXEC. 

exec   sol    iNcmoe    solca  end-exe c . 

eXCC    SOL     INCLUDE    DSN3NLL2  EJ10-EXEC. 
LINKAGE    SECTION. 


DFHCONMAREA. 

EXEC     SUL      INCLUDE     DSN1MCCA 


P4UCEDURE    DIVISION. 


SOL    RETURN    CODE    HANDLING 


EXEC    SQL     WHENEVER    S9LERR0R    GO    TO    DB-ERROR    END-EXEC 
EXEC    SOL     WHENEVER    SOLUARNING    GO    TO    DB-ERROR    END-EXEC. 


MOVE     'OSN8CC1'     TO    MAJOR     IN    DSN3-MO0ULE-NAME. 


FIND    VALID    0,'TIONS    FOR    ACTION*    OBJECT*    SEARCH    CRITERION* 
RETRIEVE    CONVERSATION)*    VALIDATE.    CALL    SQL?  * 


********** 


EXEC     S'JL     INCLUDE     DSNSMCVO    END-EX£C. 


EXEC    STL     INCL'JDt     DiiSICl     tND-cXtC  . 


cct-exir. 

EXEC    CIC5    RETURN    END-EXEC. 


EXEC    CICS    LINK    PROGRAM  I  •DSNSCC2 • >     CQNMARE A  I DFHCOMNAR EA t 
LENGTHO0001     END-EXEC. 

GO  TO  MC1-SAVE. ,. 

FXEC  SOL  INCLUDE  DSN3NC3  END-EXEC. 
EXEC  S9l  INCLUDE  DSN8MC4  FND-EXEC. 
*XEC  S1L  INCLUDE* 'OSN8HCS  END-EXEC. 


7-48. 


QIC? 00 00 
01130900 
01110000 

01120000 
01130000 
0114 0000 

~OTP>OO0iJ~ 
01160000 

_0U7Q0;0 
01130000 
01190000 
01200000 
01210000- 
01220000 
0123  0  000 

~DT74~00~(53~~ 
01250000 
01260000 


01280000 

01290000 

013OO0OO- 

01310000 

01320000 

013300UO- 

01340000 

01350000 


"  01360000 
01370000 
01380000 


"01390000 
01400000 

01410000 


~~0T4T50~0ir 
01460000 
01470000 
01480'OoTP 
01490000 
OlSOOOOO 
0IS100OO- 
01520000 
01530000 


01S40000 

oissoooa 

01560000 

01S70000- 

01580000 

01590000 

01600 OOO- 

01610000 


—1 


UAMSt  I :    OSN  123*0 

MEMBER:        DS.ViM-:; 


START 
COL 


DATE:     37/02/12 
TIAC:     17:3? 
PAGE:    1 


_a *. j + 4_ 


7         ********  DSN8f1C4  -  VALIDATION  NODULE  FOR  OBJECT  -  COBOL  *********  000100CO 
7                       '                                                                                                                                                                              *  00020000 
7                       *       MODULE  KANE  ^  DSN3HC4                                      4  00030000 

t                       *                                                                                                                                         .               *  OC040000 
?         *       DESCRIPTIVE  NAME  =  DB2  SAMPLE  APPLICATION                  *  00050000 
7         *                           VALIDATION  MODULE  FOR  OBJECT           *  00060000 

f                       *          -                C030L                                   *  00070000 

7         *                                                                   *  00080000 

j       ?         *  COPYRIGHT  =  5740-XYR  ICJ  COPYRIGHT  IBM  CORP  19S2»  1935         *  00090000 

i       7         *  REFER  TO  COPYRIGHT  INSTRUCTI ONS  FORK  NUMBER  S12O-2083          *  00095000 
!       7         *                                                                   •  00100000 
1       7                       *  STATUS  =  RELEASE  2,  LEVEL  0                                     *  00110000 

t                       *                                                                   *  00130000 
7         *       FUNCTION  =  THIS  NODULE  VALIDATES  SPECIFIC  INPUT           *  0014,0000 
7         *                  AND  MOVES  IT  TO  THE  OUTPUT  MESSAGE              *  00150000 

7         *                   TOGETHER  WITH  A  TEXT  FIELD.                     *  00160000 

7         *                                                                   *  00170000 

1       7         *       NOTES  =  NONE                                                *  00180000 

t                     *                                                            *  00190000 
7         *                                                                   *  00200000 
7         *       NODULE  TYPE  =                                               *  00210000 

7         *           PROCESSOR    =  DB2   PRECOMPILER,  COBOL  COMPILER        *  00220000 
7         *           MODULE  SIZE  *  SEE  LINKEDIT                             *  00230000 
7         *           ATTRIBUTES   =  NONE                                     *  00240000 

7                                                                            *  00250000 
7         *       ENTRY  POINT  «  DSN8MC4                                      *  00260000 
7         *           PURPOSE  =  SEE  FUNCTION                                 *  00270000 

7         *                                                                   *  00290000 
!       7         *           INPUT    =  PARAMETERS  EXPLICITLY  PASSED                *  00300000 

7         *                      TO  THIS  FUNCTION:                            *  00310000 
7         *                      SYMBOLIC  LABEL/NAME  =   NONE                  *  00320000 
7         *                      INSCRIPTION  =  NONE                           *  00330000 

7         *                                                                   *  0034COOO 

7         *            OUTPUT  ■  PARAMETERS  EXPLICITLY  RETURNED:              *  00350000 

!       7         *                      SYMBOLIC  LABEL/NAME  =   NONE                  *  00360000 

7         *                      DESCRIPTION  ■  NONE                           *  00370000 
7         *                                                                   *  00380000 
7         *       EXIT-NORMAL  =  THIS  CODE  IS  "PERFORMED"*  SO  IT  EXITS  TO    *  00390000 

7         *                      THE  CODE  FOLLOWING  THE  "PERFORM"  STATEMENT  *  00400000 
7         *                                                                   *  00410000 
7         *       EXIT-ERROR  =  IF  SOLERROR  OR  S<H_UARNING,  SOL  WHENEVER      *  00420000 

7         *                     CONDITION  SPECIFIED  IN  DSN3CCl/lCi  WILL  BE   *  004300OO 
7         *                     RAISED  AND  PR0GRA1  WILL  GO  TO  THE  LABEL      *  0044OC0O 
7         *                     DB-ERROR.                                      *  00450000 

7         *                                                                   *  00460000 
7         *       RETURN  CODE  =  NONE                                          *  00470000 

7       *                                                  *  ootAonnn 

1                       *       ABEND  CODES  =  NONE                                          *  00490000 

7         *                      "                                            *  00500000 
7         *       ERROR  MESSAGES  =                                            *  00510000 

*         osnho/oe  vital  data  missing  in  table  *toptval»    *  00520000 

I                       *                                                                   *  00530000 
7         *       EXTERNAL  REFERENCES  =>  MOST  VARIABLES  ARE  GLOBAL  AND       *  00540000 

7-49 


DATE:  37/02/1? 
TIME:  17:37 
PAGE:  Z 


X 


»                              DETINSO  IN  OS-J 

SCC1/IC1. 

* 

0OS50UC0 



*         ROUTINES/SERVICES  = 

• 

00560000 

»            DSN8MCG          -  ERROR  MESSAGE 

■(OUTINE 

a 

00570000 

* 

00580000 

1    7 

*         DATA-ARE45         =   NONE 

I 

00590000 

1      7 

• 

00600000 

CONTROL-BLOCKS     = 

» 

00610000 

1            S9LCA            -  SOL  COMMUNICATION  AREA 

• 

00620000 

7 

• 

00630000 

•       TABLES  ■   NONE 

* 

00640000 
00650000 

CHANGE-ACTIVITY  *       NONC 

* 

00660000 

* 

00670000 

* 

006S0000 

7 

*               *PSEUDOCO0E* 

* 

00690000 

* 

00700000 

PROCEDURE 

i 

00710000 

INITIALIZE  RETURNCODE  TO  «0«. 

* 

00720000 

* 

00730000 

FILL  IN  THE  DISPLAY  AREA 

* 

00740000 

FRON  VOPTVAL  I  OBJECT ,SE LTXT  I 

* 

00750000 

*            DEPENDING  ON  OBJECT  REQUIRED 

* 

00760000 

RETURN. 

J 

00770000 
00780000 

* 

00790000 

RETRIEVE  A  LIST  OF  OBJECTS  WHICH 

EXISTS, 

* 

00800000 

HEADTXT.  INFOTXT  At.D  PFKTXT 

* 

00810000 

FRON  VOPTVAL 

* 

66820055 

DEPENDING  ON  NAJSYS  =  MAJSYS  t  ACTION  *  ACTION  ANO 

* 

00830000 

OBJECT  =  BLANK 

» 

FILL  IN  DISPLAY  AREA 

* 

00850000 

SET  RETURNCODE  TO  •!*, 

* 

00860000 
00870000 

* 

PG880000 

■ 

* 

00890000 
00900000 

INITIALIZE  RETURN  COOE 


50915000 
00920000 
00930000 


MOVE  '0»  TO  RETCODE. 

fovE   'PSHawc;*   to  major  in  osns-module-name. 


"00940000 
00950000 
00960000 


00970000 
00980000 
0099000Q 


**  LET'S  SEE  IF  THE  OBJECT  SPECIFIED  ON  INPUT 
»*  EXISTS  BY  TRYING  TO  RETRIEVE  OBJECT  AND  TEXT 


EXEC  SQL  SELECT  SELTXT 

INTO   tpOPTYAL. SELTXT 
FROM   VOPTVAL 


•RETRIEVAL 


01000000 

01010000 

01020000 

01030000 

01040000 

OlOSOOOQ 

OIOfiTTOOO- 

01070000 

01080000 


7-50 


) 
) 

) 
) 

) 
) 
» 

> 

»l 

) 

r 

j  I 

» 

> 
> 
> 
> 

•[ 


rtfl  rasf  T : 
fUtlMElt: 


START 
COL       i 1- 


OATt:     (J7/02/12 
n*E:     17:37 
PAGE:     3 


25 

20 


-* +- 7- 


-HERE    *AJSYS  =  :INA«EA.NAJSYS~ 

3ND         ACTT'IH  =  :INA«£A.  ACTION 

_A  HO         UaJECT  =  MHa  REA.08JEC  T 

AND  03JECT       -•=  «        » 

AND         SHCHCRIT    =  •       » 
END-EXEC. 


••OBJECT    EXISTS 
••FILL    IK    DISPLAY    gjj E i 


/10VE    OBJECT    IN    INAREA       TO   OBJECT    IN   OUTAREA. 
WVE    SELTXT    IN   POPTWAL    TfJ    DSSC3       IN    OUTAREA. 


SQLCODE    =    +0       THEN 
GO    TO    END-0SN3ffC4. 


MOVE    SPACE    TO    OBJECT    IN    OUTAREA. 
MOVE    SPACE    TO    DE5CJ       IN    OUTAREA. 


'J  109  00  CI 
OIIOOOO 
011100*00 

01120000" 
01150000 
01140000 
31150000  " 
01160000 
01170000 
" 01180000 
01190000 
01200000 
01210000 
01220000 
01230000 
012(0000 
01250000 
01260000 
012700CO 
01280000 
01290000 


EXEC    SOL    OPEN    1/03    END-EXEC. 
HOVE    +1    TO    I. 


••      OPEN    CURSOR 


01300000~ 

01310000 

01320000 


TT3J0000 
01340000 
01350000 


••RETRIEVE    LIST 


IF    I    NOT    >    15 

THEN    EXEC    SQL    FETCH    V03    INTO    : POPTVAL. OBJECT 
:POPTVAL. SELTXT    END-EXEC 


•OF    OBJECTS 


01370000 
01380000 


IF    SQLCODE    NOT    EflUAL    TO    +100    THEN 

HOVE    SPACES  TO    FIELD- 1(11 


HOVE    OBJECT    IN    POPTVAL    TO    FIELD-21 it" 
HOVE    SELTXT     IN    POPTVAL    TO    FIELD-JIIJ 
AOD    1     TO     I 


01390000 

01400000 

01410000 _ 

01420000 

01430000 

01440000 


GO    TO    HC4-10. 


EXEC    SOL    CLOSE    V03    END-EXEC. 
HOVE     I    TO    J. 


••CLOSE    CURSOR 


"OTTJOUOU- 
01460000 
01470000 
01480000 
01490000 
01500000 


••PUT    BLANKS    AT 
•*ENO    OF    LINE 


OT5TO000~~ 

01520000 

01530000 


IF    J    NOT    >    15    THEN    HOVE    SPACE    TO    LINEOIJI 
ADD    1     TO    J      ,. 
CO    TO    HC4-30. 


01540000 
01550000 
01560000 


01570000 
01580000 
01590000 


CHECK    FOR    CONDITION    WHERE    THERE    ME    NO   VALID    ENTRIES    * 


TTUOOOOO- 
01610000 
01620000 


7-5T 


y 


) 

) 

) 

) 

) 
) 
» 

'I 

i 
I 

> 
i 

» 
> 


J^ 


dsn120. u5nsamp 

dsn3MC4 


START 
COL 


DATE:     .W/02/12 
TIME:     17:3? 
PAGE:     i. 


-7 


1    THEN    .HOVE     •!•     TO    BtTCOOE 


MOVE    »070E*     TO    HSGCODE 

CALL    •DSMflMCG*    USING    MAJOR    MSSCOOE    QUTMSG 

rtOVF    QUTMSG    TO    M5GTEXT    IN    MS 6 


******  ********* ft* ********    01450  odd- 

01540000 

*»IF    ?I0    VALID    ENTRY    IN  H45O0O0 

••OPTION    VALIDATION  01460000 

**8ASE     TABLE     ITDPTVALJ  01670000 

••TRY    TO   6ET    ERROR     TEXT       01680000 

01690000 

••ERROR  TEXT  FQUNO     01700000 

••PftlNT  ERROR  TEXT     O1710000 


01720000 
01730000 
017(0000 


CO  TO  END-DS13HC4. 


01750000 
01760000 
01770000 


*********************** 


**    IF    ONLY    ONE    OBJECT 


01730000 

*********    01790000 

EXISTS    THEN    USE    IT    AS    DE F A ULT  01800000 


SET    UP    OBJECT    AND    DESCRIPTION    IN    OUTPUT 
**********************************  *****************    ot  820000 


IF    I    =    2    AND    OBJECT    IN    INAREA 
MOVE     »0»     TO    RETCODE 
MOVE    FIELD-211)    TO    OBJECT    II    INAREA 


MOVE  FIELD-211)  TO  OBJECT  J  It  OUTAREA 
MOVE  FIELD-3U)  TO  DESC3  IN  OUTAREA 
MOVE    SPACE  *     TO    LINEO    111 


01340000 
01350000 
01860000 


01370000 
01830000 
01890000 


GO  TO  END-DbNdMC*. 


01900000 
019100CO 
01920000 


OBJECT  HAS  NOT  FOUND 


*********  01930000 

01940000 

*********  01950000 


MOVE  »1«  TO  RETCODE. 


EXEC  SOL  SELECT  * 

INTO   IPDPTVAL 
FROM   VOPTVAL 


01960000 
01970000 
01980000 


UHERE  MAJSYS 
AND  ACTION 
AND    OBJECT 


:  INAREA. MAJSYS 
:INAREA. ACTION 


"01990000 
02000000 
02010000 


O2O2O0ffCT 

02030000 

02040000 


02060000 
•  FILL  IN  DISPLAY  AREA   020/0000 


••WITH  HEAOINGt 


NflVE  HEADTXT  IN  POPTVaL  TO  HTlfUE  TN~~aUTAREA. 
MOVE  INFOTXT  IN  POPTVAL  TO  MSC  [N  DUTAREA. 
MOVE  PFKTXT   IN  POPTVAL.TO  PFKTEXT  IN  OUTAREA. 


"02080000 
02090000 
02100000 


02110000 
02120000 
02130000 


••RETURN   TO 


02150000 
02160000 


,7-52 


) 
1 
) 
) 
) 
) 
) 
» 
) 
) 

» 

) 
) 
» 
1 

J 

r 

R«TAS?Ti     0SN1J0.  i. '.\' 

•*n*                                                                                                                       OflTE:     37/12/1? 

TINE:     17:37 
PflfiF:    S 

COL       + 1 < 

, , , , , ,___,__ 

H                          E'lD-nsi^MC. 

**0SN3rtCl    MODULE               02770000"  ~ 
02130100 

! 



-* 

* 

* 

iL. 

- 

\ 

7-53 


:e:     37/02/12 
Ul     17:36 
PAGE: 


I          SI  AH  T                                                                                                                                                                                                                     ......_            — _ _. 

7                       *****-«***D5N3MC3    -    VftLinriTIOfl    TUDULf    FOR    ACTION    -    COBOL    ********    O0Q1OOC3 
7                       *                                                                                                                                                                              *    00020000 
I                       *                  MODULE     NAME    =    DSN8MC3                                                                                                    *    00030000 

f                        *                                                                                                                                                                              *    00040000 
7                        *                  DESCRIPTIVE    NAME    =    082     SAMPLE    APPLICATION                                              •    00050000 
7                       *                                                                      VALIDATION    MODULE    FOR    ACTION                             *    00060000 

7                       *                                                                      COBOL                                                                                            *    00070000 
7                       *                                                                                                                                                                              *    00080000 
7                       *    COPYRIGHT    =     5740-XVR     IC1     COPYRIGHT    IM    CORP    1982.     1985                        *    00090000 

7                       -    REFER    TO    COPYRIGHT    INSTRUCTIONS    FORM    NUMBER    G1Z0-2033                           *    00095000 
7                       *                                                                                                                                                                              *    00100000 
7                       *    STATUS    *    RELEASE    2»    LEVEL    0                                                                                                 *    30110000 

7                       *                                                                                                                                                                              *    00130000 
7                       *                  FUNCTION    =    THIS    NODULE    VALIDATES    SPECIFIC    INPUT                             *    00140000 
7                       *                                             AND    MOVES     IT    TO    THE    OUTPUT    «SSAGE                                      *    00150000 

7                       *                                             TOGETHcR    WITH    *    TEXT    FIELD.                                                         *    08U0005 
7                       *                                                                                                                                                                              *    00170000 
7                       *                  NOTES    •          NONE                                                                                                                       *    00180000 

7                        *                                                                                                                                                                              *    00190000 
7                       *                                                                                                                                                                              *    00200000 
7                       *                  MODULE     TYPE    =    BLOCK    OF    COBOL    CODE                                                                    *    00210000 

7                       *                  NODULE     SIZE    =    SEE    LINKEDIT                                                                                      *    00230000 
1                 7                       *                  ATTRIBUTES       =    REUSABLE                                                                                                 *    00240000 

7                       *                                                                                                                                                                              *    00^50000 
7                       *      -           ENTRY    POINT    =    DSN3NC3                                                              -                                     *    00260000 
7                       *                  PURPOSE    =    SEE    FUNCTION                                                                                                 *    00270000 

7                       *                                                                                                                                                                              *    00290000 
I                 7                       *               INPUT   =    PARAMETERS    EXPLICITLY    PASSED    TO    THIS    FUNCTION:             *    00300000 

7                       *                                     DESCRIPTION    =    NONE                                                                                         *    00320000 
7                       *                                                                                                                                                                              *    OOlTOOnfl 

t                        *                  iiUTPJJ    =    PARAMETERS    EXPLICITLY    RCTUMEOr                                                 *    00X40003 

7                       *                                           SYMBOLIC    LABEL/NAME    =      NONE                                                           *    00350000 
7                       *                                          DESCRIPTION    =    NONE                                                                                    *    00360000 

7                       *                                                                                                                                                                              *    O037UUUU 
7                       *          EXIT-NORMAL    =     THIS    CODE     IS    "PERFORMED",    SO    IT    EXITS    TO    COPE     *    00380000 
7                       *                                                FOLLOWING    THE    "PERfORM"    STATEMENT                                      *    00390000 

'                       *                                                                                                                                                                              *    00400000 

*          EXIT-ERROR    =     IF    SOLERRQR    OR    SOLWARNINGf     SUL    WHENEVER    CON-          *    00410000 

7                       *                                             DITION       SPECIFIED    IN    0SN8CC1/IC1    WILL    BE    RAISED*    00420000 

*                                             AND    PROGRAM    WILL    GO    TO    THE    LABEL    OB-ERROR.                *    00450000               

Z                       *                                                                                                                                                                              *    00440000 
■ i *                                                                                                                                                                              *    00450000 

,                       *                                                                                                                                                                              *    00470000 
7                       *                  ABEND    CODES    =    NONE                                                                                                            ft    00480000 

C                       *                                                                                                                                                                              *    00490000 
7                       *                  ERROR    MES5AGES_=                                                                                                                  *    00500000 
7                       *                     DSNH070E    -    VITAL    DATA     IS    HISSING     IN    TABLE    'TOPTVAL*                *    00510000 

'                                                                                                                                                                                                       *    OOS20000 
'                       *          EXTERNAL    REFERENCES    =    MOST    VARIABLES    ARE    GLOBAL    AND    DEFINED    *    00530000 
7                       *                                                                      IN    DSN8CC1/IC1.                                                                 *    00540000 

•:7-54: 


dataset : 

MEK8FR: 


DATE:     87/02/12 
TIKE:    17:36 
PASE:     2 


RO)UTtK£S/S£flV[CES 


ERR31    1=55flG6    ROUTINE 


OATA-fS^S 


CONTROL-BLOCKS 
SOLCfl 


00  5  50001 
0O5600C0 
00570000 


-  SOL  COMMUNICATION  AREA 


00580000 
00590000 
00600000 


TABLES  ;   NONE 


00610000 
00620000 
00630000 


CHANGE-ACTIVITY    =    NONE 


00640000 
00650000 
00660000 


•PSEUDOCODE* 


PRUCEDURE 

INITIALIZE  RETURNCODE  TO 


00670000 
00680000 
00690000 


FILL  IN  THE  DISPLAY  AREA 

FROU  VOPTVAL  I  ACT  ION, SELTXT 1 
DEPENDING  ON  REQUIRED  1AJSYS  AND  ACTION 


*  007COOOC 

*  00710000 

*  00720000 


00730000 
00740000 
00750000 


IF  ACTION  NOT  FOUND 


RETRISVE  A  LIST  OF  ACTIO*  WHICH  EJflsTS; 

HEADTXT,  INFOTXT  AND  PFKTXT  FILL  IN  DISPLAY  AREA 
FROM  VOPTVAL 


00760000 
00770000 
00780000 


DEPENDING  ON  NAJSY5  =  NOJSYS  AND  ACTION  =  BLANK- 
SET  RETURNCODE  TO  •!■. 


00800000 
00810000 


00820000 
00830000 
00840000 


00350000 
00860000 
00870000 


30890600 
00890000 
00900000 


INITIALIZE  RETURN  CODE 


MOVE 

nuve 


0»     TO    RETCODE. 
'DSNSHC3*    TO    MAJOR     IN    DSN8-130ULE-NA.1E  . 


LET'S    SEE     IT     THE    ACTION    SPECIFIED    ON     INPUT    EXISTS 
IRYING     TO    RETRIEVE    ACTION    AND    TEXT. 


00910000 

00920000 

00930000 

00940000" 

00950000 

00960000 


************** 


EXEC    SOL     SeLEd     SELfrtf 

INTO       :P0PTVAL. SELTXT 
FROM       VOPTVA'l' 


*************************** 


'•RETRIEVAL 


"00970000 
00980000 
00990000 


OIOOOOOO- 

01010000 

01020000 


WHERE  HAJ5Y5 
AND  ACTION 
AND    ACTION   -.* 


TINAREA.KAJ5Y5 

:  INAREA. ACTION 


01040000 
01050000 


~OT060000 
01070000 
01080000 


'7--55- 


START 


•>:   DJ«S,*C 


-1 1 2- 


DATE: 
TINE: 
,'AGE: 


VtL'    OJJECT    =  *   ' 
V'D-EXEC. 

riaVrioH  existT 

**FILL    IN    DISPLAY    AREA 

HOVE    ACTION     IN    INAREA       TO    ACTION    in    OUTAREA. 

P5?E    SELTXT     IN    POPTVAL    TO    DESC2       IN    OUTAREA. 


SOLCODE    =    *0       THEN 
30    TO    END-DSN8NC3. 


—  + 8 

niivoobTT- 
ouooooo 

01110000 

01120000 

01130000 

01140000 

01150005" 

01160000 

01170000 

01180000 

01190000 

01200000 


1210000 
01220.100 
01230000 

01250000 
01260000 


IHJtf* 


**    ACTION    NOT    FOUND 

»•     PROVIDE    A    LIST    OF    ACTIONS    WHICH    EXIST 


5><1CE    TO    ACTION    IN    OUTAREA. 
s3ACE    TO    DESC2       IN    OUTAREA. 


01270000 

01280000 

1290000 


OPEN    CURSOR 


EXEC    SQL    OPEN    V02    END-EXEC. 


7 
8 

* 
HC3 

-10 

•♦RETRIEVE    LIST    OF 

ACTIONS 

01310000 
01320000 

12 
15 
25 

IF 

I     'CJT     >     15 

THEN    EXEC    SgL    FETCH    V02    INTO    : POPTVAL. ACTION    p 
:POPTVAL. SELTXT    END-EXEC 

01330000 
01S4000C 
01350000 

I              2° 
26 

IF    SOLCODE     NOT    =    +100    THEN 

WOVE    SPACES                                  TO    FIELD-1III 

01370000 
01330000 

MOVE  ACTION  IN  POPTVAL  TO  FIELD-2(I> 
MOVE  SELTXT  IN  POPTVAL  TO  FIELD-3(II 
ADD    1     TO     I 


GO    TO    C1C3-10. 


••CLOSE  CURSOR 


OUOOOOO 
01410000 
OT 420 000 
01430000 
1440000 


OU50000 
01460000 
01470000 


EXEC 
NOV? 


SOL  CLOSE  V02  END-EXEC. 


"OT480000 
01490000 
01500000 

"OT5T00150- 


••PUT    BLANKS    AT 
••END    OF     LIN€ 


12 

17 

IF    J    NOT    >    15    THEN    MOVE    SPACE    TO    LINEO(J)                                                         01520000 
ADD    1    TO    J                                                                                                                               01S30000 

17 

7 
7 

• 

GO    TO    NC3-30.                                                                                                                       01S4UUUU 

01550000 

7 

7 

:... 

*•       CHECK    FOR    CONDITION    WHERE    THERE    ARE    NO    VALID    ENTRIES    */0157000O 
**********  ft************************* ******** **•**•••**•***             01580000 

01590000 

7 

7 
7 

; 

•-OPTION    VALIDATION               01610000 
••BASE    TABLE     (TOPTVALl       01620000 

7-56 


[~     START 

COL       


DATE: 
TIME: 
PAGE: 


37/02/12 
17:36 


22 
22 
22 


15 
IS 


••TRY     10    GET    ERROR    TEXT 


1     THEN    -HlVt     M*     TO    R'TCODE 

HOVE     »0"70E*     TO    HSGCOOl  ~ 

CALL     "DSNSHCG*    USING    MAJOR    MSGCJ3E    OUTMSG 

MOVE    0UTW5G    TO    MSGTEXT    IN    HSG 


7 
22 

••RETURN 
GO    TO    EN0-DSN8MC5. 

7 
7 
> 

*•       IF    ONLY    THE    ACTION    EXISTS    THEN    USE    AS    DEFAULT 

7 
7 

••       SET    UP    ACTION    AND    DESCRIPTION    IN    OUTPUT 

01650000 
31640000 
01650000 
01660000 
01670000 
01680000 
01690000 
01700000 
01710000 
01720000 
01730000 
01740000 


1=2    AND    ACTION    IN    IdAREA 

MOVE    »0*     TO    RETCODE 

MOVE    FIELP-211*    TO    ACTION    IN    INAREA 


01750000 
01760000 
01770000 


MOVE  FIEL0-2I11  TO  ACTION  IN  OUTAREA 
MOVE  FIELD-3111  TO  DESC2  IN  OUTAREA 
MOVE    SPACE TO    LlNtO    fit 


017800C0 
01790000 
01800000 


01810000 
01820000 
01830000 


GO    TO    END-DSN3MCI. 


01840000 
1850000 
1860000 


ACTION    UAS    NOT    FOUND 


01870000 

01880000 

1890000 


HOVE     *!•     TO    RETCQDF. 


EXEC    SAL     SELECT     • 

MTfl       IPOPTVAL 
fROT       VOPTVAL 


01900000  " 

01910000 

01920000 


WHERE     MAJSYS 
AND  ACTION 

END-EXEC. 


:  INAREA. J11J3YS 


01930000 
01940000 
01950000 


019600CO 
01970000 
01980000 


•f  ILL    DISPLAY    AREA 
•WITH    HEADING,     PFKEY, 


**&    MESSAGE    INFO. 


'0T99O0"O0_ 

02000000 

02010000 


MOVE    HEADTXT     IN    POPTVAL    TO    HTITLE 

MOVE     INFOTXT    IN    POPTVAL    TO    NSG 

MOVE    PFKTXT       IH    POPTVAL     TO    PFKTEXT     IK    OUTAREA 


IN    OUTAREA. 
IN    OUTAREA. 


END-0SN5MCJ. 


••RETURN    TO 
••DSN8HC1    MODULE 


02025o7jTS~ 

02030000 

02040000 

02050000 

02060000 

02070000 

020807100 

02090000 

02100000 

02110000 


7-57 


iflTE:     87/02/12 
TIME:     17=17 
?AGE:     1 


I     'J 

) 

> 
I 

) 

) 

) 

) 
I 

> 

> 

^ 
) 
i 

> 
j 


*     US13CC0   -     .'J5SVSTE*    INTERFACE    MO0ULF    FOR    CICS/VS    -   C0SQL~" 

KOJULE    NAME    ;    TJSN3CCO 


DESCRIPTIVE    NAME    =    08?       SAMPLE    APPLICATION 

SUBSYSTEM  INTERFACE  HQPULE 


CICS 
COBOL 


-7 i 8 

***  0001  IS  TOO- 

00020000 
C00300CO_ 

oootobod 

00050000 
00060000 


000700tfO— 

00030000 

00090000 


*  COPYRIGHT    *    5740-XY8     IC»     COPYRIGHT    IBM    CORf    1982,     19»5 

*  REFER    TO    COPYRIGHT    INSTRUCTIONS    FORM    jHHWtg    6130-2083 


00100000 
00110000 
00115000 


*    STATUS    •    RELEASE    2,    LEVEL    0 


FUNCTION    =       THIS    NODULE     ISSUES    CICS    RECEIVE    MAP'"t0    RETRIgVE- 


00120000 
00130000 
001500CO 


INPUT*    CALLS    DSNSCCI,    AND    ISSUE    CICS    SEND    HAP 
AFTER    RETURNIN G . 


OOl600u5~ 

00170000 

00180000 


THIS    IS    A    CICS    PSEUOO    CONVERSATION    PROGRAM    UHICH 
INITIALIZES    ITSELF    WHEN    A    TERMINAL    OPERATOR    ENTERS 
INPUT    AFTER    VIEWING    THE    SCREEN    SENT    BY   PREVIOUS 
ITERATIONS    OF    THE    PR06RAN. 


00190000" 

00200000 

00210000 


DEPENDENT  IES 


TWO    CICS    MAPStDEECTS)     ARE    REflUIRED: 
DSH8MCM6    AND    D5N8MCND 

HODULE      DSH8CC1    IS    KEUUIffED. 

DCL6FN    STRUCTURE    DSNSNCCS    IS    RE8UIRED 
INCLUOED    COBOL    STRUCTURE    D5N8MCCA    IS 


"OTTTTtTtTOT^ 
00230000 
002*0000 

nnrzTDTTUD— 

00260000 
00270000 
"  00280000  " 
00290C00 
0O30C00O 


RESTRIC  TIONS 


~0031O0C0 
U0320000 
00330000 


*  MODULE     TYPE 


P  RO  C  ESSOR  -     DB2    PRECONP ILER ,C It  5    TRANSLAI Utt, COBOL    COHpfL 

•10DULE     SIZE    =    SEE    LINK-EDIT 

ATTRIBUTES       =    REUSABLE 


"00 140000 
00350000 
00360000 


^ff3701TCXr 

00330000 

00390000 


ENTRY    POINT    =    DSN8CC0 

PURPOSE    =    SEE    FUNCTION 


LINKAGE    =    C1CS/0S/VS    ENTRY" 

INPUT    =    PARAMETERS    EXPLICITLY    PASSED    TO    THIS    FUNCTION: 


~~OOTaQ"0"(J0- 
00410000 
00420000 
UO43000O- 
004*0000 
00450000 


SYMBOLIC    LABEL/NAME    =    DSN8CC6I 

DESCRIPTION    -    CICS/0S/V5    BMS    MAP    FOR   GENERAL    INPUT 


SYMBOLIC,  LABEL/NAME    =    DSN8CCDI 

DESCRIPTION    =    CJCS/OS/VS     BMS    MAP    FOR    DETAIL    INPUT 


00460000 
00470000 
00480000 
"(T0490000" 
00500000 
00510000 


OUTPUT    =    PARAMETERS    EXPLICITLY    RETURNED: 


OOWOOOO 
00530000 
00540000 


7-58 


«E^9frt:       DSNSCCO 


START 
COL 


DATE:     87/02/12 
TIlie:     17:17 
PACE:     2 


7                       «                                     SYMBOLIC    LABEL/VA1E    =    DSN8CCG0                                                             00550000 
7                       *                                     DESCRIPTION    *    CICS/OS/rfS    BflS    *4P    FOR    GENERAL    OUTPUT    00560000 
7                       *                                                                                                                                                                                   00570000 

7                       *                                     SYMBOLIC    LABEL/NAME    »    DSNSCCDO                                                             00580000 
7                       *                                     DESCRIPTION    *    CICS/OS/VS    BBS    MAP    FOR    DETAIL    OUTPUT       00590000 
7                       *                                                                                                                                                                                   00600000 

7                       *                                                                                                                                                                                   00610000 
7                       *          EXIT-NORMAL    =    CICS    RETURN    TRAN5ID                                                                                00620000 
7                       *                                                                                                                                                                                   00630000 

7                       *          EXIT-ERROR    =    SOL    ERROR    FOR    SQL    ERRORS                                                                     006*0000 
7                       *                                             CICS    AtEND    FOR    CICS   PROBLEMS                                                           006S0000 
7                       *                                                                                                                                                                                   00660000 

7                       *                  RETURN    CODE     =    NON?                                                                                                                 00670000 
7                       *                                                                                                                                                                                   00680000 
7                       *                  ABEND    CODES    =    LSCR    -    LOGICAL    SCREEN    SET     INCORRECTLY                       00690000 

7                       *                                                                                                                                                                                   00700000 
7                       *                  ERROR-MESSAGES    -    NONE                                                                                                         00710000 
7                       *                                                                                                                                                                                   00720000 

/                       *                                                                                                                                                                                   00730000 
7                       *          EXTERNAL    REFERENCES    =    COMMON    CICS    REGUIRENENTS                                             00740000 
7                       *               N0UTINES/SERVICE5    =                                                                                                                 00750000 

7                       *                          CICS/VS    SERVICES                                                                                                              007AOOOO 
7                       *                          DSN8CC1                                  -    S8L    1    MAINLINE    CODE                                             00770000 
/                       *                                                                                                                                                                                   00780000 

7                       *               DATA-AREAS       =                                                                                                                                  00790000 
7                       *                          0SN8MCCA                               -    PARAMETER    TO    BE    PASSED    TO    DSN8CC1       00800000 
7                       *                                                                                       COMMON    AREA               -                                                00810000 

7                   *                     dsnxmccs                          -   DECLARE    CONVERSATION   SThTUs                   00820000 
7                       *                          aSK8KCC2                               -    COMMON    AREA    PART    2                                                00830000 
7                       *                          DSNSMCH5                               -    CICS/OS/VS    COBOL    MAP.    ORGANIZATION    00840000 

f                       *                          DSN^CMG                               -    CICS/OS/VS    COBOL    MAPt    ORGANIZATION    00850000 
7                       *                                                                                                                                                                                   00360000 
7                       *               CONTROL-BLOCKS    =                                                                                                                         00370000 

7                       *                          SQLCA                                          -    5«L    COMMUNICATION   AREA                                  00380000 
7                       *                                                                                                                                                                                   00890000 
7                       *          TABLES    =       NINE                                                                                                                                    00900000 

'                     *                                                                                                                                                                 00910001 
7                       *          CHANGE-ACTIVITY    =       NONE                                                                                                            00920000 
7                       *                                                                                                                                                                                   00930000 

7                     *                                                                                                                                                                 00940600 
7                       *       *PSEUD0CODE»                                                                                                                                             00950000 
7                       *                                                                                                                                                                                   00960000 

7                       *                PROCEDURE                                                                                                                                             00970000 
7                       *               DECLARATIONS.                                                                                                                                  00980000 
7                       *                       ALLOCATE    COBOL    WORK    rtRErt    FOR    CONMAREA.                                                      00990000 

I                     *                     PUT    HODULS    NAME    '05NSCC0»    IN   AREA    USED    BY    ERROU-HANDLEr.    01000000 
7                       *                       PUT    CICS    EIBTRMID     IN    PCONVSTA .CONVID    TO    BE    PA5SED    TO               01010000 
7                       •                       DSN8CC1.                                                                                                                                       01020000 

t                       *                       RETRIEVE    LASTCR    FROM    VCONA    USING    T"H  E    CONVfD    fO    DETERNlttE    01030000 
7                       *                       UHICH    OF    THE,  JWO    3NS    NAPS    SHOULD    BE    USED   TO    MAP     IN    DATA.     01040000 
7                       *                                                                           •                                                                                                        01050000 

1                     *                                                                                                                                                                 U106U0D0 
7                       *               IF    RETRIEVAL    OF    HAPS    IS    SUCCESSFUL*    THEN    DOi                                              01070000 
7                       *                       EXEC    CICS    RECEIVE    MAP    ACCORDING    TO    SPECIFIED    LASTSCR               01080000 

7-59 


3ATE:     37/02/12 
riW:    17:17 
PAGE:    3 


PFAIL    CONDITIO*    IS    RAISED* 
CONPARH.Pf KIM    «    *00' 


SO  TO  CCOSENO 


01090000 
01100000 
01110000 


01120000 

01150000 
01140000 


PUT  DATA  FRO*  HAP  INTO  COHPAR* 


011SO0O0 
01160000 
01170000 


IT  IS  A  NEW  CONVERSATION 

AMD  NO  EXEC  CICS  RECEIVE  WAP  IS  ISSUED. 


1130000 
01190000 
3I20GOOO 


CCOSEND: 

EXEC    CTCS    LINK    PR06RAfH«nSN8CCl*l     COHHAREA tCOHH AREA  I ■ 


01210000 
01220000 
01230000 


UPON    RETURN    FRON    DSN8CC1»    EXEC    CICS    SEND    HAP    ACCORDING    TO 

THE    TYPE    SPECIFIED    IN    PCONVSTA.LASTSCR. 
EXEC    CICS    RETURN    TRA HSHUD8CSI  * 


012*0000 
01250000 
01240000 


I.E.    LAST    CONVERSATION    EXISTS,    BUT    OPERATOR    HAD    ENTERED 
DATA    FROM    A    CLEARED    SCREEN    OR    HAD    ERASED    ALL    DATA   ON    A 
FORMATTED    SCREEN    AND    PRESSED    ENTER 


01270000 
01280000 
01290000 


01300000 
01310000 
01320000 


*L 

> 


PF  KEY  ACTUALLY  USED  I.E.  '01'  FOR 


01330000 

01340000 

1330000 


IDEKT IFICATION  DIVISION. 

PROGRAM-! D.  3SN8CC0. 


*0i3i0000 
1370000 
1380000 


01390000 
01400000 
01410000 


ENVIRONMENT  DIVISION. 


01420000 
01430000 
01440000 
"91450000 
01460000 
01470000 


UORKING-S  T0SA6E  SECTION. 
77    FOUND  PIC   S99. 

EXEC  SQL  INCLUDE  SQLCA 


EKEC  SOL  INCLUDE  DSNSHCC2  END-EXEC. 

CONflAREA. 

EXfcC  SQL  INCLUDE  DSN3MCCA  END-EXEC. 


0H300~O0~ 

1490000 
01500000 


EXEC  SQL  INCLUDE  DSN8NCCS  END-EXEC. 
EXEC  SQL  INCLUDE  DSNSHCH6  END-EXEC. 
EXEC  SOL  INCLUDE  DSN8WCHP. END-EXEC. 


01*10000 
01520000 
OlSiOOOO 


01550000 
01560000 


NAPD  REDEFINES  DSN8CCDI. 
02   FILLER       PIC  XI387I. 


TTiTiTTSTTTrtTZri 


-01570000" 
01580000 
01590000 


Drsounoo- 

01610000 
01620000 


"'55Mff. 


*L18ER:       t>-.*5CC0 


f-    START 
>  COL 


DATE:     B7/07/12 
TI*e:     17:17 
PAGE:    4 


-3 » 4— 


) 
) 
) 

I  > 
) 
I 
) 
) 
J 
» 
) 
> 
) 
) 

!   » 

I   > 

x± 


is 

IS 


-< 6 « 


2       SUB.^rtP  OCCURS     15    TI/1ES. 

03    COLILEN  PIC    S9UI    COUP. 

0  3    COL  lATTR  PIC    XI  1 1  . 


03    C0L1DATA  PIC    XI37I. 

03    COL^LEN  PIC    S9(  4  I     CO/IP. 

03  COL ?  ATT  R    PIC  X  I  II  , 


01630OO0 
OI6400CO 
016SQC00 


03  C0L2DATA    PIC  XI40I. 


01660000 
01670000 
01680000 


I******************************************  H...1H* *  *******-0 1700000 
PFKEYS  IS  AN  ARRAY  OF  ?4  ELEMENTS  REPRESENTING  THE  DIFFERENTOI 710000 
PFKEY5  AS  THEY  WOULD  3£     REPRESENTED  IN  EI6AID.  0172  000~0~ 


Pf'KETS-OUMB. 


02    PFKEYS-ALL  PIC       XI24>    VALUE     •  12 3456789: «-A BCOE F«HI« . 

02    PFKEYS       REDEFINES    PFKEYS-ALL    PIC    Xtll       OCCURS    24    TINES. 


************* 


********* 


<•. 01750000 

01760000 

**-01770000 


PFK    IS    A*    ARRAY    OF    12     TWO-iYTE    CHARS    REPRESENTING    THE    PFKEYSOl780"0"<V0- 
ALLOWED     AS     INPUT    TO" DSN3CC1    AND    1SN9CC2ETC.  01790003 

***********************************  ********** * **************— oi 800000 

OlftlOOOTJ- 
01820000 
01830000 


I       pfk-dunb. 

02    PFK-ALL  PIC       X<24)     VALUE     '010203040506070809101112 < 

02    PFK  REDEFINES    PFK-ALL  PIC     XI2I       OCCURS    12    HUES. 


PROCEDURE    DIVISION. 


OlS-VOOTTO- 

01350000 

01860000 


************ 


7 

****************************  ********************   *******£* 

12 

EXEC    SCL     WHENEVER    SftLERROR    50    TO    DS-ERROR    ENO-eXEC 

EXEC    SOL    WHENEVER    S9LWARNING    GO    TO    DB-ERROrf    tND-EXEC 

01870000 

-01880000 

01890000 


^0T9060O<J 

1910000 

01920000 


ALLOCATE    COBOL    WORK    AREA    /     INITIALIZE    VARIABLES 


01930000 

*******-01940000 

01950000 


********** 


WOVE     SPACES     TO    CONNAREA. 

HOVE     ■D5W8CC0t    TO    MAJOR     IN    DSN3-H0DULE-NAME . 

MOVE     *0»  TO    MAJSYS     IN    OUtAREA"; 

HOT*   »o«  ro  exitcode. 

HOVE    EIBTRM10     TO    CICSID    OF     PCONVSTA. 


-019600UO- 
01970000 
019S0000 


HOVE    CONVID    OF     PCONVSTA    TO    SAVE-CONVID. 


"TnTPQOOO 
02000000 
02010000 


07020DW 

02030000 
-02040000 


TRY    TO    RETKIEVE    LAST    CONV ERSATION .— tf    SUCCESSFUL.    USE    THE 02050000 

LAST    SCREEN    SPECIFIED    TO    RECEIVE     IN?UT    FROM    TERMINAL.  02060000 

********•***•****•****•*•*******•*******,* * ******.**.,*******_020?0000 

"  02080000 


EXEC    SOL     SELECT    LASTSCR 

INTO  iPCONA. LASTSCR 


VCONA 
CONVID 


02090000 
02100000 


:SAVE-CONVID    END-EXEC. 


IF    LAST    CONVERSATION    DOES    NOT    EXIST.    THEN    00   NOT    ATTENfT    TO 
RECEIVE    INPUT    HAP.    CO    DIRECTLY    TO    VALIDATION   MODULES 


o?i lonoa 

02120000 
02130000 


******-0?I«0000 
02150000 
02160000 


7-61 


DA [A  St  I":     DSN1P0.DSNS.HP 
MEIHf  *:       OShiSCCO 


DATE: 

87/02/12 

TIHE: 

X7J17 

PAGE: 

5 

> 
) 
> 
) 
) 
1 
I  J 
) 
> 

* 
s 

> 

i     > 

> 

> 


r(  Tl  TLE  ETC. 


IF  SOLCODE  =  *100  THEM 

GO  Til  CCOSEND. 


FOR  OUTPUT  SAP.  02170000 

*****!•***  ft***************  m*  »*.»*»#****. **-02 180  000 

02190000 


02200000 
02210000 
02220000 


IF  LAST  CONVERSATION  EXISTS,  BUT  OPERATOR  HAS  ENTERED  DATA  N0224000O 

F*01  A  CLEARED  SCREEN  OR  HAD  ERASEO  ALL  OATA  ON  A  FORHATTED  N02250000 

SCREE*  AND  MESSED  ENTER  THEN  '                                                 "  N022600QO 

MOVE  DATA  INTO  CORRESPOND ING  FIELDS  IN  INAREA  ANO  GO  TO  02270000 

VALIDATION  MODULES. 02230000 


EXEC  CICS 


AHOLE  CONDITION  HAPFAIL  (CC0SEN01  END-EXEC. 


IF  LASTSCR  Jf  PCONA 
GO  TQ    CCO-LABELI. 


-02290000 
02300000 
02310000 


••DSN8002 
••DETAIL  HAP 
**HOVe  DATA  INTD 


02320000 
023250,00 
02330000 


••INPUT    FIELDS 
EXEC    CICS    RECEIVE    HAP    I'DSNSCCDM    MAPSET     I'DSNSCCBM 


02333000 
02336000 
02340000 


END-EXEC. 
IF    aflAJSYSL    NOT 


02  350000 
02360000 
02370000 


IF    BACTir.NL    NOT 


02330000 

0    THEN    HOVE    BHAJSYSI    TO    HAJSYS    OF    INAREA    02390000 
ELSE    HOVE    ,0'  TO    HAJSYS    Or    INAREA.       02400000 


0    THEN    HOVE    BACTIONI    TO    ACTION   OF    INAREA    02*10000 
ELSE    HOVE    SPACES  TO    ACTION    OF     INAREA.       02420000 

IF    30BJECTL    NOT    ■    0    THEN    HOVE    BOBJECTI    TO    OBJECT    OF    INAREA    02430000 
ELSE    HOVE    SPACES  TO    OBJECT    OF    INAREA.       02440000 

IF    BSEAKCHL    NOT    =    0    THEN    HOVE    BSEARCNI    TO    SRCH         OF     INAREA    02450000 
ELSE    HOVE    SPACES  TO     SRCH  OF     INAREA.       02460000 

0    THEN    HOVE    BDATAI  TO    DATA  IN    OF     INAREA    02470000- 

ELSE     HOVE    SPACES         TO     DATAIN    OF    INAREA.       02480000 

02490000 


IF    BDATAL 


NOT 


HOVE    1     TO     [, 


GO    TO    CCO-LABELX. 


02500000 
•GO  TO  VALIDATION  MODULES  02510000 
■  02520000 


CCO-LABELI. 

IF    LASTSCR    OF    PCONA    NOT    = 


02530000 

02540000 

*»ERROR    ON    LASTSCREEN7    02550QOO 


EXEC    CICS    ABEND    ABCflDE     <»LSCR»t     END-EXEC 
GOBACK. 


02560005 
02565000 
02570000 


••USING  LAST  SCREEN 


02580000 
02590000 
02600000 

026itf07rcr 


••SPECIFIED  TO  RECEIVE  02620000 

_J «*INPUT  FROH  TERMINAL   02630000 

07640000 

EXEC  CICS  RECEIVE  HAP  l*DSM8CCS«l  HAPSE T( ■ 0SN8CCSM  END-EXEC .02650000 

02460000 


7-62- 


SATAte f : 
NEH8ER: 


START 
COL 


DAT*:  37/02/12 
TINE:  17:17 
PAGE:  6 


-♦ 1 ♦ 


!     ) 


12 

1? 


•  ****....*...•**.*•*.».  +  *»..******»**•  .**..**.•**#*»«.  ****»**»_02670  coo 
IF    M74     TS    RECEIVED    FOR    a    FIELDt     THEN    HOVE     JHE    DATA     INTO    THE    02640000 

_COjUC  >aO'<^IWG L  FICLP     IN    INAREA,    OTHERWISE    ,10*E    BLANKS.  ^2690000 

-02700000 

02710000 

INAREA  02720000 


If    AHAJSVSL    NOT    =    0    THEM    WOVE    AMAJSVSI    TO    HAJSYS    OF 
ELSE    MOVE    *0' 


IF    ArtCTIHNL    NOT 


TO  HAJSYS    OF  INAREA.  02730000 

HEM    HOVE    AACTIONI    TO  ACTION    OF  INAREA  12740000 

fLSE    WOVE    SPACES         TO  ACTION    OF  INAREA.  32750000 

IF    AOfiJFCTL    NOT    =    0     THEN    MOVE    AOBJECTl    TO  OBJECT    OF  INAREA  0 27600 OO- 

ELSE    WOVE    SPACES  TO  OBJECT    OF  INAREA.  02770000 

If    ASfcJftCtt.    WOT    *     0    THEN    HOVE    ASE6RCHI    TO  SRCH         Of  INAREA  02750000 


60    TG    CC0-LA3EL3. 


ELSE  HOVE  SPACES 
THEN  HOVE  AOATAI 
ELSE    MOVE    SPACES 


CC0-LA36L4. 


TO    SRCH  OF     INAREA.       02790000 

TO    DATAIN    OF    INAREA  02300000 

TO    DATAIN    OF     INAREA.       02810000 

02820000 

02530000 

02540000 


IF     C0L2LENU)     NOT    =    0    THEN    .MOVE     C0L2DATA(lt     TO    TRANDATA(l>     02850000 
ELSE    MOVE    SPACES  TO    TRANDATAIII.  02560000 

02370000 
02580000 
02890000 
02900000 


14 

ADD  1  TO  I. 

7 
5 

CCO-LOOPX. 

*  * 

CCO-LABELX  LOOP 

>  15. 

CCO-LOaELi. 


MOVE 
MOVE 


TU    I. 

TO    FOUND. 


02910000 
02920000 
02930000 
02940060 
02950000 
02960000 


CONVERT     THE    PFKEY     INFO    IN    EI8AI0    TO    THE    FORM   ACCEPTED 
BY    DSN5CC1    AND    0SN5CC2     HC.    PF1     =    *01«    AND    PF13    =     '01*. 


CC0-LABEL4. 


************ 


-02970000 
02950000 
02990000 


********** 


*?F    KEYS    1-12 


*»***-03000000 
03010000 
03020000 


IF    PFKEYS(  I  ) 


ELSE     ADO     1     TO    I. 


EI8AID     THEN    MOVE    1     TO    FOUND 


0  3O37raO"0— 

03040000 

03050000 


CCO-LOOP*. 

PERFORM    T0-LT9EL4    UNTIL 
I    >    24    OR    FOUND    =    1. 


03060000" 
03070000 
CC0-LABEL4    LOOP  03050000 


"~0}690007j~ 

03100000 

03110000 


CC0-LA9EL5. 


*PF    KEYS    >    12 


It    THEN    SUBTRACT     13    FROM     I. 
IF    FOUND     =    1     THEN 

MOVE     PFKt II     TO     PFKIN    OF     INAREA 
ELSE    MOVE   SPACES    TO    pFKIN   OF  TffflTfET7 
GO    TO    CC0-LABEL6. 


03120000 

03130000 

03140000 

05150000 

03160000 

03170000 

0J1800BO"- 

03190000 

03200000 


\7-63: 


0,1  T USE  T 

■1K.18ER: 


i  ft  l  20.  OS 

stscco 


-*— + 5 ♦ 6 1 


DATE:     87/02/12 
TINE.     17:17 
PUCE:     7 

-7 + S 


> 

> 

I 

4 


(iO  TO  DSMSCCl*  GET  DCLGEN  STRUCTURES  AND  TASLE  DCL 


CCO SEND. 

WOVE    SPACES    TO     INAREA. 


MOVE     *00»     TO    PFKIN    OF     INAREA. 


-O3210G0O 
03220000 
*-O3230O0O 
03  2*0000 
03230000 
03260000 


MOVE     '0*    TO    HAJSYS    IK    INAREA.  ~ 

EXEC    CICS    LINK    PROGRAM     I*DS«3CC1*>     CONN  M  E  A  CCONflAREA  > 
LEHCTHMOOO)     SND-EXEC. 


GO    TO    CCO-NORMAL. 

EXEC    S9L     INCLUDE    DSN8MCXX    END-EXEC. 


03276000 
03230000 
03290000 
03 30 0000 
03310000 
033 20 000 


03  330000 
03340000 
03350000 


**.*  ********************  ****************************************    -O3  36C00"0~~ 
*  AFTER    RETURN    FROM    DSNSCC1.    HOVE    OATA    TO   OUTPUT    MAP    AREA    AND       03370000 

* SEND    HAP    ACCORDING    TO    MAP    SPECIf I  ED    IN    LAST5CR    Of    PCOhVSTA.       03380000 

******  *******************************  i"*************^***^*^,^,*^  j  39  oo  oo 

CCO-NORHAL.  03*00000 

IF    LASTSCR    OF    PCOWVSTA    =     '05143002     ■     THEN    GO    TO    CC0-LABEL9.  03410000 


MOVE  HTITLE  OF  OUTAREA  TO  ATITLEO. 
HOVE  MAJSYS  OF  OUTAREA  TO  ANfiJSYSO. 
HOVE    ACTION    OF    OUTAREA    TO    AACTIONO. 


♦•MOVE    DATA    INTO 
**OUTPUT    FIELDS 


12 

MOVE 

OBJECT    OF    OUTAREA    TO    AOBJECTO 

MOVE 

SRCH         OF    OUTAREA     TO    ASEARCHO 

MOVE 

DATAOUT                                TO    BDATAO. 

03420000 
03430000 
03440000 
03450000 
.03460000 
03470000 


MOVE    NSG  OF    OUTAREA     TO    AMSGO. 

HOVE  DESC2  OF  OUTAREA  TO  ADESCL20. 
MOVE  DESC3  JF  OUTAREA  TO  ADESCL3Q. 
hOVt  DESC4  OF  OUTAREA  TO  ADESCL40. 
MOVE  PFKTEXT  OF  OUTAREA  TO  APFKEYO. 
MOVE    1    TO    I. 


CC0-LADEL7. 

MOVE    LINEO(I)     TO    ALINEOCl). 
ADO    1     TO    I. 


03480000 
03490000 

03500000 

03510000 
03520000 

03530000 

03540000 
03550000 

03560000 

03570000 

*SEND    MAP    ACCOROING     TO    03580000 

+PREVIOUS    SCREEN 03S9000Q 

OJ600000 
03610000 

_____ 03620000 


CC0-L0GF7. 


PERFORM    CC0-LABEC7     UNTIL" 
I    >    15. 


"03450000 
C3640000 
03650000 
03660000 
03670000 
03680000 

-03690000 

CREATES  A  DYN AM IC  CURSOR  03700000 

I***********************,*.,,*  »»****»*****»**.****»**„*»,*,.,,»_  __0571Q000 

03720000 
03730000 
03740000 


CC0-LABEL8. 


*CC0-LABEL7    LOOP 


**SET    CURSOR    POSITIOM 


7-64 


START 
COL 


PATE:     87/02/12 
THE:     17:17 
PSGE:     8 


nave  zeroj.s  tu  cursus-value. 

IF    AACTUT.0    ■     SPACES    THE-H    ,1'JVE    +179    TO    CU3SOR-VALUE 

*ViE     IF    BCUECTO    =    5P3CFS     THEN    HOVE     »>S9    TO    CURSOR-VALUE 

♦  339   ro  cursor-value 

•£•     THEN 


ELSE    IF    ASFARCHO    ■    SPACES    THEN    HOVE 
ELSE     IF    AOATAQ    *     SPACES    OR    AACTIQNO    = 
WOVE    4-419    TO    CURSOR-VALUE. 


*SENO    OUTPUT 


IF    CURSOR-VALUE    =    ZEROES    THEN 

EXEC    CICS    SEND    HAP  I •DSNSCCC*  I    HAPSETI 'DSN8CCG* I    END-EXEC 
ELSE 


**FINISIIED? 


IF  EXITCODE  = 


THEN  GO  TO  CCQ-LA3EL12. 


cXEC  CICS  RETURN  T RANS ID (  •D8CS' 1  END-EXEC. 


********* 


03750000 

037600C0 

03770000 

03780000 

037900CO 

03800000 

03810000 

03820000 

03830000 

03840000 

03850000 

03860000 

03870000 

03880COO 

03890000 

03900000- 

03910000 

03920000 

"OsTTiJoffO- 
03940000 

-039S0000 


rOVES    DATA    fROM    OUTPUT    HAP    AREA    TO 

RECEIVE    MAP    ACCORDING    TO    HAP    SPECIFIED    IN    LASTSCK    OF    PCQNV5T 


03960000 
03970000 
03980C00 


-LA3EL9. 
WOVE    HTITLE    OF    OUTAREA    TO    BTITLEO. 
HOVE     HAJSVS    OF    OUTAREA    TO    8NAJSYS0. 


**HOV£  DATA 

•  •FROft  OUTPUT  FIELDS 


03990000 
04000000 
04010000 


04O2O0mj~ 

040300CO 

04040000 


MOVE  ACTION  OF  OUTAREA  TO  BACTIONO. 
HOVE  OBJECT  OF  OUTASEA  TO  aOBJECTO. 
HOVE  SRCH    OF  0UTA3£A  TO  35EARCH0. 


rtUVfi  OATAOtlT  TO  BDATAO. 

-UVE  HSG     OF  OUTAREA  TO  BHSGO. 
MOVE  DESC2   UF  OUTAREA  TO  8DESCL20. 


0405000O 
04060000 
04070000 


KilVE  DESC3  OF  OUTAREA  TO  SCtSCTTO. 
HOVE  DESC4  OF  OUTAREA  TO  30ESCL40. 
HOVE  PFKTEXT  OF  OUTAREA  TO  9PFKEY0. 


04080000 
04090000 
04100000 


HOVE     1    TO    I. 


04110000 
04120000 
04130000 


•♦RECEIVE    KAP    ACCORDING 
**T0    PREVIOUS    SCREEN 


"04140000 
04150000 
04160000 
"04  17  00  00 


6 
12 

C( 

0-LA3EL10. 

HOVE     FIELDlltl        TO     C0L1DATAII1     . 

04180000 
04190000 

12 

12 

**    CHECK    FOR    ATTRIBUTE    OF    X»C0Cl» 
IF    ATTRUt    =    -16191    THEN    HOVE    -I     TO    C0L2LENIII. 
HOVE    ATTR2(I1          TO    C0L2ATIR1I)     . 

04200000 
04210000 

04220000 

04*30000 

ADD     1     TO     I. 


-LO0P10. 
PERFORM    CCO-LABEL10    UNTIL 


CC0-LA8EL10   LOOP 


04240000 
042SO00O 
04*60000 
04270000 
04  280000 


7-65 


9U*SETJ 


START 
CDL 


M20, DSNSAip 
NHCCO 


CQ-LAgeLU. 


************ 


■10VE    ZEROES    TC    CURSOR-VALUE . 


•SET    CURSOR    POSITION 


CUE:    87/02/12 
TINE:     17:17 
PAGE:     9 


0*790050 

04300^00 
04310000 

-04320000 
04330000 

-04340000 
04350000 
043600CO 
04370000 


12 

If    BACTIONO    =    SPACES    THE*    HOVE    +179 

TO    CURSOR-VALUE 

04380C0O 

12 

ELSE    IF    aOBJECTO    =    SPACES    THEN    HOVE 

♦259    TO    CURSOR-VALUE 

04390000 

12 

PL5S    IF     3SEARCH0    =     SPACES    THEN    MOVE 

+339    TO    CURSCR-VALUE 

04400000 

12 

ELSE     IF     BDATAO    =     SPACES    Oft    BACTIONO 

=    »D»    OR    ■£•    THEN 

04410000 

MOVE    +419    TO    CURSOR-VALUE. 


04420000 
04430000 


*SEN3    INPUT    KAP 


IF    CURSOR-VALUE    =    ZEROES     THEN 


EXEC    CICS    SEND    HAP  I  * 0SN3CCD * t     HAPSETC • D5N8CCD*  I    END-EXEC 
E 
EXEC    CICS    SEND    HAP ( ' PSN8CC0 ' I     HAPSETt ' DSNBCC D' )     ERASE 
CUftSORICURSOR-VALUE)     END-EXEC. 


••FINISHED? 


IF    EXITCOOE     =     *lf     THEN    GO    TO    CCO-LA BEL] 2, 
EXEC    CICS    RETURN    TR ANS t D ( *DSCS* I     END-EXEC. 
S09ACK. 


CC0-LA3EL1?. 

EXEC  C[CS  RETURN  END-EXEC. 
CU3ACK. 


••RETURN 


044400C0 

04450000 

04460000 

044700CTT 

04430000 

04490000 

04500000 

04510000 

04520000 

9(739000 

04540000 
04550000 
04560000 
04570000 
04580000 
04590000 
04600000 
04610000 


> 
J 
1 

> 


-.7-66- 


I         STAKT 
COL 


27 

25 


SN  1  JO.OS.'JSHIP 


*  MHO    VALID    OPTIONS    FOR    -     1CTION 

EXEC    SUL    DECLARE    VO?    CURSOR    FO  R~ 
SELECT 

ACTION r     SELTXT 

FROH  V0PTV4L 

WHERE  HAJSVS     ■  : I HAREA.HA JSYS 

AND  ACriOH    ->=■     '  * 

AND  OBJECT     =  •   • 
ORDER  BY  ACTION  ASC  END-EXEC. 

*  FIND  VALID  OPTIONS  FOR  -  OBJECT 

EXEC  SQL  DECLARE  VQ3  CURSOR  FOR 

5ELEC7 

OBJECT*  SELTXT 

FROM  VOPTVAL 

WHERE  HAJSYS     =  : ISA HEA.HA JS VS 

AND  ACTION     -  : INAREA. ACTION 

AMD    OBJECT  ■■=     *        ' 

AND    SRCHCRIT      =     •       • 
ORDER    BY    OBJECT    ASC    END-EXEC. 


OATE:     87/12/12 
TIHE:     17:35 
PAGE:     1 

7 , 3 

00 Oi OOOO 
1112  0000 

00030000 

0 J 040000 
CO  050000 

00060000 

00070000 
00180000 

00090000 

obiooooo 

01110000 

00120000 

00130000 
001(0000 

00150000 

Oil  160000 
00170000 
00180000 
10190000 
00200000 
OGZIOUOO 
01220000 
00230000 
00240000 


7 
7 
15 

*    FI1D    VALID 
EXEC 

UPTIONS    FOR   -    SEARCH    CRITERION 
SOL    DECLARE    V04    CURSOR    FOR 

00250000 
00260000 
00270000 

27 
23 

SELECT 

SRCHCRIT*    SELTXT 
FROM    VOPTVAL 

00280000 
01290000 
00300000 

23 

29 
29 

WHERE    HAJSVS            =    :INAREA.HAJSYS 

AND    ACTION            =    : INAREA. ACTION 
AND    OBJECT            =    : INAREA. 03 JECT 

00310000 
00320000 
00330000 

29 

s 

AND    SRCHCRIT    ->=     •       ■ 
AND    (SCRTYPE       =    •     •    OR    SCRTYPE    = 
ORDER     8V    SRCHCRIT    ASC    END-EXEC. 

•S'l 

00340000 
00350000 
00360000 

7-6  7 


nariStT:    DSM20.u:iKSA!lP 
"F.MHFH:        DSN-IMCCrt 


START 
COL 


DATE  : 
TIME: 
PAGE: 


J7/02/12 
17:34 


-4 * S- 


**•*    THE    ::OM,1A«EA    STRIJ-TTIJKE    DECLARED    BELOW     IS    USED     TO    PASS    INPUT 
****    DATA     l^TUEEN     THE     SUBSYSTEM    DEPENDENT    MOO'JLES    I  C ICS  t  IMS  »TSO  t 
*»«»    AND    SSL 1    AND    S8L2 
2       PCONVSTA. 
3       CONVin. 
THHID. 


~5      CICS  IB  PIC    X  t  4  > . 

5      CICSDK  PIC    mo. 

4      USEKIO  PIC    xm. 

LAST5CR  PIC    XI 3  I . 

LASTPfJS. 

4       PRE* PIC    X. 

4      MAXSEL  PIC    99. 
4       POSREST- 
5    MPASAVE. 


6    LDEPTMAM 
49    LDEPTMAML 
49    LDEPTHAWD 

6    LHGRMO. 
49    LMSRNOL 
49    UWMjgB 

6    LMGSNAME. 
49    LM6RNAMEL 
49    LMGRHAHED 

6    LEMPNO. 
49    LEMPNOL 
49    LEMPMOD 

6    LEMPNAME. 
49    LEHPNAMEL 
49    LEMPHftMED 

6    01A1H 

6    UNIN 
5    MPDSAWE* 

6    T2MIN  PIC 

6    D2MIN  PIC 

6    E2MIN  PIC 

5      DSN8-M0DULEH 

6      MAJOR         PIC 

6   MINOR    PIC 
5  FILLER     PIC 

LASTPOSO  RECFF 

LASTPOSC    PIC 


PIC  59(41  COMP- 4. 
PIC  X(36>. 

PIC  S9(4)  COMP-4. 
PIC  XI6I  . 

PIC  S914)  COMP-4. 
PIC  X1151. 

PIC  S9i4>  COMP-4. 
PIC  XI6). 

PIC  59C4)  COMP-4. 
PIC  ^iljtj 

pic'xm. 

PIC    X(6) . 


X(3). 
XI6)  . 

NAME. 

xm. 

X(8». 


XM231. 
IHES    LASTPflS    PTC    X(?S',). 

Xt?54t. 

PCONVSTAO  REDEFINES  PC0.NV5TA  PIC  X(532). 
OUTAREA. 
MAJSVS      PIC  X. 


ACTION 
OBJECT 
SRCH 


PIC 
PIC 
PIC 


~5  DATAOUT  PT7 
3  DATAOU2  RED 
4  DAT02       PIC 


X160J. 

EFINE5  DATAOUT. 
Kill* 


0O01O000 
00020000 
3Q030000 
00040000 

ooosoooo 

00060000 
00070000 
00080000 
3009Q000 
"00100000 
00110000 
00120000 
00130000 
00140000 
00150000 


13 

6   LOEPTNO. 

ool&odoo 

14 

49    LDEPTNOL 

PIC    59(41    COMP-4. 

00170000 

14 

49    LDEPTNOD 

PIC    X(3) . 

00180000 

00190066 
00200000 
00210000 

"00220000  " 

00230000 
00240000 
03250000 
00260000 
00270000 

— OTJ280000 
00290000 
00300000 
OOJIOOOO 
00320000 
00330000 
O03400G0 
00350000 
00360000 

"00570000 
00380000 
00390000 
00400000" 
00410000 
00420000 
00430000 


00470000 
00480000 
00490000 
00500000 
00510000 
~OTJ  5"ZO00O 
00530000 
00540000 


7-68 


uarrt^FT  :    &SN171.BSMSMP 


i  ' 
!•[ 

I   , 

I  ) 
> 
) 
> 
> 

> 
I 

"> 
J 
> 
I 
1 

> 


START 
COL   + 


12 
13 


VlC  XI53I . 

-•  tc  X1SOJ. 
'IC  XJ501. 
r*  IC  XI50I. 
?IC  XI 501. 


B«SC  J 

DESC4 

HSS. 

1SSTXT. 
5  FILLER 
5    1S8W39 

5    M5CROD2  PIC    XI1H. 

5    FILLER  PIC    XI27I. 

fliCTEXT    REDEFINES    NSGTXT    PIC    XI70»« 

pic  xm. 


PIC    X123t. 


~5~FILLER 
3  PF<T£XT 
J       CUTPUTO 


PIC    XI79I. 


ElS         OCCU2S     15. 
5    LINED  PIC    XI791. 

5    LIKE-1       REDEFINES   LINEO. 
— 4    FIELD-1       PIC    XIJ1. 
6    FIELO-2       PIC    XI6I. 
6    FIELD-3       PIC    XI70*. 
5    LIHE-Z       SEOEFINES    LIHE6. 


6    FIELD1 
6    flTTR 

6    flTTRO 


PIC    X(37>. 

PIC    S9U1    COHP. 


REDEFINES    ATTR. 
ATTRl  PIC 

ATTR2         PIC 


6    FIELD? 

5    LEFT-OPT 

6    D1N0 


~XTT 
01NA 
FILLER 


PIC    XUOI. 
REDEFINES    LINCO. 

PIC    XI51. 

PIC  X121"; 
PIC  XI34J. 
PIC    XUOI. 


BATES    57/02/12 
ffttCi     1704 

P"Sci    2   ____ 


00550000 
0056COOO 
QOS 70000 
00530000 
00590000 
00600000 
60640006 
00650000 
00660000 
00 6 70 000 
00&80000 
00690000 
~"T50~6~95o6o~~ 
00700000 
00710000 
00720000 
00750000 
00740000 
— 00756000" 
00760000 
00770000 
00730000 
00790000 
00800000 
OOMOOOO- 
00820000 
00830000 
— 00840000 
00850000 
OOB60000 
1 — 00370000" 


LEF7-NS 
6    X21 
6    NINO 
6~XT2 


1EDEFIHES    LINEO. 

PIC    X. 

PIC    XI6». 


PIC    XUOI. 
PIC    XI40). 


5    RIGMT-DPT    REDEFINES    LINEO. 
6    X12  PIC    XUOI. 

6  02no  pic  xm. 


6  xii  pic  xm. 

6    DZHrx  PIC    XI  3*1  - 

RIGHT-NCR  REDEFINES    LINEO. 

6    X23  PIC    Xl*0>. 

6    X2*  PIC    X. 

&    M2N0  pic    XUI. 

6   x?5  pic   xm. 

6    H2NA  PIC    X130I. 

Rir.HT-EWP  aEUfFIHES    LINEO. 


1J 

6    XU 

PIC    XUOI. 

6    E2N0 

PIC    X(61. 

13 

6    X15 

pic  xm. 

00880000 
00890000 
-QWQWOO- 
00910000 
00920000 

on^oooo- 

00940000 
00950000 
aOVSoTJOO- 
00970000 
00980000 
— 6TJ990005 
01000000 
0101 0000 . 
01020060 
01030000 
01040000 


0105001)0 
01060000 
01070000 
-QTOTOOOO- 
01090000 
01100000 


J~ 


7-69. 


1     ) 

DAT 

>k  I:     DSM1?1,QSN5A1P 
h  *:       DSN.11CCA 

DATE 
TIME 

PAGE 

S7/02/12 
1 7  -■  S  4 

COL        

• 1 

— . — t. 

— # 3 1 4 ♦ 5 ♦ 6 1 7 

¥ 3 

10 
11 

J 

UUTPUT1 
4      LINE2 

PIC    XI311. 

REOEFINES    OUTPUTO. 
PIC    XI79)     OCCURS    2. 

01110000 
OU20000 

13 

4       3SHC10, 
5    BGHC1    OCCURS    13. 
6    LINENO         PIC    99. 

01140000 
01150000 

13 
13 

6    FILLER 
6    DEPTNU* 
6    FILLER 

PIC    XI?). 
PIC    XI3». 
PIC    XI31. 

01170000 
OllSOOOO 

13 
13 

6    DEPTNA 
6    FILLER 

6    flGRNUN 

PIC    XI36I. 
PIC    XI3I. 

PIC    X(6t. 

01200000 
01210000 
01220000 

13 
13 

6    flGRFIN 
6    1GRSIN 

PIC    X  I  3). 

PIC    X. 
PIC    X* 

0UJOO0O 

01240000 
01250000 

13 
13 

6    NGRLNAfl 
6    FILLER 

Pic    X. 
PIC    XC15I. 
PIC    XI3I. 

O126CQ00 
01270000 
012SOOOO 

9 
10 

z 

3 

CQNPARN. 
NEl/CONV            PIC    X. 

01290000 
01300000 
01310000 

10 
10 

3 
3 

RETCODE 
EXIT  CODE 

PIC    X. 
PIC    X. 

oiudooq 

01330000 
01340000 

10 
10 

3 

3 

flAJSYS 
ACTION 

PIC    X. 
PIC    X. 

D1141S0OO 
01360000 
01370000 

1C 
10 

3 
3 

SRCH 
PFKIN 

PIC    XX. 
PIC    XX. 
PIC    XX. 

01380000 
01390000 
01400000 

10 
10 

3 

3 

0ATAIN1 
DATA I NO 

PIC    XI60I. 

REDEFINES    DATAIN    PIC    X    OCCURS    60. 
REDEFINES    DATAIN. 

01410000 
01420000 
01430000 

11 

10 

4 
4 
3 

LIHE-SEL 

DATA01 

0ATAJ6 

HC    Kit}. 
PIC    XIS81. 
REDEFINES    DATAIN    PIC    XI 361  . 

OlUOOOO 
014S0O0O 
01460000 

10 

10 

3 
3 

DATA15 
DATA6 

REDEFINES    DATAIN    PIC    X(24t. 
REDEFINES    DATAIN    PIC    X 1 1 S  1  . 
REDEFINES    DATAIN    PIC    X(6). 

014/0000 
01430000 
01490000 

> 
> 

* 

10 
10 

3 
3 

DATA2 
DATA19Y1 

REDEFINES    DATAIN    PIC    X  f  3 1 . 
REOEFINES    DATAIN    PIC    99. 
REDEFINES    DATAIN. 

01500000 
01510000 

M 

10 

3 

10    DATl 
10    DAT? 
TRANDATfl 

PIC    X. 
PIC    X. 
PIC    XUOI     OCCURS    15. 

015JOOOO 
01540000 
01550000 

inHKtflU    KtDEFINES    INAREA    PIC    X(664t. 

01560000 
01S70000 
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DATAStT: 
MEM3ER: 


DATE: 

TIME: 

PAGE: 

6 ^ 7_ 


17/02/12 

17:13 


7         »»•»«********  l>SN3CC2  -  Cfli^;i.1  MODULE  F3R  CICS  -  CH30L****** * »  »*  *  00010020. 
7         *                                                                   »  00020100 
7         *    i|)QJLE  SAME  =  0SMMCC2                                          *  OOOJOOOO 

7                       *                                                                   *  00040000 
?         *    0ESCR1PUYE  NAME  =  DB2   SAMPLC  APPLICATION        .            *  0005000C 
7         *                        SOL  2  COMMON  MODULE                        *  00040000 

7         *                        CICS                                        *  00070000 
7         *                        C030L                                      *  00030000 
7         *                                                                   »  000900CO 

7         *                                                                   *  00100000 
7         *  COPYRIGHT  *  5740-XYK  1CI  COPYRIGHT  131  CORP  198Z»  19*5         *  00110000 
7         *  REFtR  TO  COPYRIGHT  INSTRUCTIONS  FORM  .'IUHBER  G120-20M          *  00115000 

7         *                                                                   *  00120000 

7       *  status  =  release  2»  level  Q                              *  oouoooo 

7         *                                                                   *  00150000 

7         *    'UNCTION  =  ROUTER  FOR  SECONDARY  SELECTION  AKO/OR             *  00160000 
7  ■        *                           DETAIL  PROCESSING                       *  00170000 
7         *               CALLS  SECONDARY  SELECTION  MODULES                  *  00180000 

7         *                      DSN3MCA  DSN3NCM                              *  00190000 
7         *               CALLS  DETAIL  MODULES                               *  00200000 
7         *                      DSN8MCD  D5N3HCE  0SN8MCF                      *  30210000 

7         *                      DSN8MCT  DSN8MCV  DSN3HCW  DSN3NCX  BSN8HCZ     *  00220000 
7         *                CALLED  BY  DSN8MC1  C5BL1)                           *  00250000 
7         *                                                                   *  00240000 

7         *    MUTES  =   NONE                                                  *  00250000 
7         •                                                                   *  00260000 
7         *                                                                   *  00270000 

7         *    MODULE  TYPE  =                                                  *  00230000 
7         *       PROCESSOR    =  DB2  PKECOMP  ILEft  t    CICS  TRANSLATOR,           *  00290000 
7         *                      YS  COBOL                                      #  00300000 

7                       *                  MODULE  SIZE  =  SEE  LINKEDIT                                 *  00310000 
7         *       ATTRIBUTES   =  REUSABLE                                      *  00320000 
7                       *                                                                   *  00330000 

7         *    ENTRY  POINT  =  DSN8CC2                                          *  O340000 
7         *       PURPOSE  =  SEE  FUNCTION                                     *  00350000 
7                       *       LINKAGE  =  NONE                                              *  00360000 

7                       »       INPUT    =                                                   *  00370000 
7         *                                                                   *  00380000 
7                       *                                              SYMBOLIC  LABEL/NAME  »  COMMPTR                    *  00390000 

7         *                  DESCRIPTION          -  POINTER  TO  COHftAREA       *  00400000 
7         *                                         (COMMUNICATION  AREAI      *  00410000 
7         *                                                                   *  00420000 

7         *       OUTPUT   =                                                   *  00430000 
7         *                                                                   *  00440000 
7         »                  SYMBOLIC  LABEL/NAME  =  CQMMPFR                    *  00450000 

7         *                  DESCRIPTION          =  POINTER  TO  COMMAREA       *  00460000 
7                       *                                                                                                          (COMMUNICATION  AREAI      *  00470000 
7         *                                                                   *  00480000 

7         *    EXIT-NORMAL  =   RETURN  CODE  0  NORMAL  COMPLETION                *  00490000 
7        *                                                             »  00500000 
7         *    EXIT-ERROR  •                                                   *  00510000 

7        *            IF  SoLERrOr  Or  S0LWARNING»  SDL  WHENEVER  CONDITION   t  00520000 
7         *              SPECIFIED  IN  DSN8CC2  WILL  BE  RAISEO  AND  PROGRAM     *  00530000 
7         *             WILL  GO  TO  THE  LABEL  DB-ERROR.                       *  00540000 
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) 

) 
) 
) 
) 
)  i 

) 

>  : 

» 
) 

-> 

a  j 
» 

>  i 


arise!:     DSNl.M.JSNSAlP 

fmher:      os>*rt.:c2 


tSTURN   CODE 


BftTEl    S?/0?/l£ 
T11E:     17:18 
_PAG£:    Z 


-j ♦ 4 


) 

J 
> 


^BENO    COPES    =    NONE 

•^ROR-NESSAGES    = 

PSN8062E-HISSIN6    DETAIL    WO DU L C 


DSN8063E-MISSING    SECONDARE    S EL    NODULE 

DSN8066E-UVSUPFORTEO    PFK   OR    LOGIC    ERROR 
05N8072E-INVALIP    SELECTION   ON    iECOMOARY    SCREEN 


*  005SOOOO 

*  00560000 

*  00570000 

*  00530000 

*  00590000 

*  00600000 

*  00610000" 

*  00620000 
»  00630000 


EXTERNAL    REFERENCES    -    NONE 

30UTINES/SERVICES   =    10    MODULES    LISTEO   ABOVE 
DSN8NCG  -  ERROR    MESSAGE    ROUTINE 


DATA-AREAS 


DSN8HCA 
DSN8HCA0 

PSN8WCAE 


DSN8MCAL 
DSNSMCA2 
0SN8MCCA 


SECONDARY    SELECTION    FOR    ORGANIZATION 
DECLARE    ADMINISTRATION    DETAIL 
CURSOR    EMPLOYEE    LIST 


DSN8MCC? ^~ 
DSN3MC0 
DSN8HCDA 
DSN8HC0H         ~ 


D5N8MCDM 


CURSOR  ADMINISTRATION  LIST 

DECLARE  ADMINISTRATION  DETAIL 
COMMON  AREA 


DSN8MCDP 

DSN3MC0T 
0SN8MCE 


DSN8HCEN 

DSN8WCF 

DSN8MC0V 


COMMON    AREA    PART    2  ~ 

DEPARTMENT    STRUCTURE    OETAIL 
CURSOR    ADMINISTRATION    DETAIL 
CURSOR    FOR    DISPLAY"  TEXT    FROM- 
TDSPTXf    TABLE 

DECLARE    DEPARTMENT    MANAGER 
DECLARE    DEPARTMENT  "~ 

DECLARE     DISPLAY    TEXT 

DEPARTMENT    DETAIL 

DECLARE     EMPLOYEE 
EMPLOYEE          DETAIL 
_0_ECLARE    OPTIOH    VALIDATION 
ERROR    HANDLER  


CONTROL-flLOCKS 


SOL    COMMUNICATION    AREA 


CHAS5E-ACTI/ITY    =    NOME 


•PSEUDOCODE* 


J?TLr°2nLE,  DEURHINES    WHICH    SECONDARY-SELECTION    AND/OR 
DETAIL    MODULEfSI     AtE.tO    BE    CALLED    IN    THE    CICS/COBOL 


ENVIRONMENT. 


WHAT    HAS    HAPPENED    SO 


HE    SUBSYSTEM 


DEPENDENT    MODULE     < IMS ,C1CS, TSOt    OR    ISQL    01    HAS 


*  00640000 

*  0C6S0000 

*  00660000 

*  00670000 

*  00680000 

*  00690000 

*  00~70~0000  " 

*  00710000 

*  00720000 

*  00730000 

*  00740000 

*  00750000 


00760000 
00770000 
00780000 


-0O79000O~ 
00800000 
00310000 


~O08200OO~ 
00830000 
00840000 


"00850000 

C0360000 

»  00870000 


*  008805M 

*  00890000 

*  00900000 

*  0091 OOOO- 

*  00920000 
00930000 


0094000O- 

00950000 

00960000 


00980000 
00990000 


*  01000000 

*  01010000 

*  01020000 

*  01030000 

*  01040000 
»  01050000 


"mosoooo- 

*  01070000 

*  01080000 
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DATE:     37/02/13 
TI.ie:     17:l« 
PAGE:     3 


7         *  k?\Q    THE  INPUT  SCREEN*  FORMATTED  THE  INPUT  ANO  PASSED  CONTROL  *  01090000 
7         *  M  S«i  1.  SUL  1  PERF0RM5  VALIDATION  OH  M*  SYSTEM  DEPENDENT    *  01100-100 
7         *  rIFLnS  IMAJJW  SYSTEM*  ACTION.  OBJECT.  J5ARCH  CRITERIA1.  IF     *  01110001 

7         *  ALL  SYSTEM  FIELDS  ARE  VrtLID  SOL  1  PASSED  CONTROL  TO  THIS       *  81 126ft J3 
7         *  MODULE.  PASSED  PARAMETERS  CONSIST  ONLY  OF  A  POINTER  WHICH      *  01130000 
7         *  POINTS  TO  A  COMMUNICATION  CONTROL  AREA  USED  TO  COMMUNICATE     *  01140000 

7         *  ^ETWEEI  SOL  0  *  SOL  1*  SQL  2    AND  THE  SECONDARY  SELECTION       *  01150000 
7         *  A*f>  DETAIL  NODULES.                                              »  01160COO 
T                       *                                                                                                                                                                              *  01170000 

7         *  ALL  SECONDARY  SELECTION  AND  DETAIL  MODULES  ARE  'INCLUDED*.     *  01190000 
7         *  QLL  VARIABLES  KNOWN  IN  THIS  PROCEDURE  ARE  KNOWN  IN  THE         *  01200000 

7         *  SUB  PROCEDURES.  ALL  SOL  CURSOR  DEFINITIONS  AND                 *  01210000 
7         *  SOL  'INCLUDES*  ARE  DONE  IN  THIS  PROCEDURE.  BECAUSE  OF  THE      *  01220000 
7         *  RESTRICTION  THAT  CURSOR  HOST  VARIABLES  MUST  BE    DECLARED  BEFORE*  01230000 

7         *  THE  CURSOR  DEFINITION  ALL  CURSOR  HOST  VARIABLES  ARE  DECLARED   *  012*0000 
*         *  IH     THIS  PROCEDURE.                                               *  01250000 
t,      ,      *                                                                  *  01260000 

7         *  PROCEDURE                                                        *  01270030 
7         *     IF  ONSWES  TO  DETAIL  5CREEN  AND  DETAIL  PROCESSOR             *  01280000 
7         *     IS  NOT  WILLING  TO  ACCEPT  AN  ANSWER  THEN                      *  01290000 

7         *                      NEW  REQUEST*                                 *  OlSOOOOfl 
7                       *                                                                   *  01310000 
7         *     ELSE                                                          *  01320000 

7         *            IF  ANSWER  TO  A  SECONDARY  SELECTION  THEN               *  01530000 
7         *                      DETERMINE  IF  NEW  REQUEST.                    *  0134000O 
7         *             '                                                      *  01350000 

7        *                                                         *  OlSfioOOo 
*         *                                                                   *  01370000 
7         *     CASE  (NEW  RE0UEST1                                            *  01380000 

7                     *                                                            *  01190000 
7         *            SUBCASE  1'ADD'I                                        *  01400000 
7         *                     DETAIL  PROCESSOR                              *  01410000 

7         *                     RETURN  TO  SOL  1                               *  01*20000 
7         *            ENDSUS                                                 »  01430000 
7         *                                                                   *  01440000 

7                       *                               SUBCASE  1 'ERASE  '  *» DISPLAY' *• UPDATE • 1                  *  O14500G0 
7         *                     CALL  SECONDARY  SELECTION                      *  01460000 
7         *                     IF  t  OF  POSSIBLE  CHOICES  IS  -.=  1  THEN        *  01470000 

7         *                            RETURN  TO  SOL  1                        *  01430000 
7         *                     ELSE                                          *  01490000 
7         *                            CALL  THE  DETAIL  PROCESSOR             *  OISOOOOO 

7                       *                            RETURN  TO  SOL  1                        *  01510000 
1                       «            EN3SUJ                                                 •  015?0000 
7                       *                                                                   *  01S30000 

7         *     ENDCASE                                                       *  01S40000 

7                       *                                                                                                                                                                              *  015SO000 

*     IF  ANSWER  TO  SECONDARY  SELECTION  AND  A  SELECTION  HAS        *  01560000 

7         *     ACTUALLY  BEEN  MADE  THEN                                      *  01570000 
7         *                  IF  LI,  IS  A  VALID  SELECTION  NUMBER  THEN          *  01580000 
7         *                        CALL  DETAIL  PROCESSOR                      *  01590000 

*                        RETURN  TO  SQL  1                            *  01600000 
7                       *                 END                                               ■  01610000 
7                       *                                                                   •  01620000 
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ELSE 

PRINT    ERROR    «"SS 

RE  TUrfH    TO    S'JL    1 

END. 

IF    ANSWER    TO    SECONDARY    SELECTION    THEN 
CALL    SECONOARV    SELECTION 
RETURN    TO    SOL    1 


IF    ANSWER    TO    DETAIL    THEN 

C3LL    CETAIL    PROCESSOR 

RETURN    TO    SOL    1 


-5 « 6 


RETURN    TO    SOL    1. 


*EXANPLE-    A    ROW    IS    SUCCESSFULLY 
THE    SUCCESSFULLY    A0PE3    MESSAGE 


ADDED,     THE    OPERATOR 
UNO    JUST    HITS    ENTER 


*  0I63OOC0 

*  01640000 
»  Q16500QO 

*  01660000 

*  01670000 
*  01660000 

*  01690000 

*  01700000 
*  01710000 

*  01720000 

*  01730000 

*  01740000 
*  017SOOOO 

*  01760000 
"    01770000 

*  01780000 

*  01790000 

*  01800000 
*  01310006 

RECEIVES*  01820000 

*  01330000 

*  01340000 
01850000 
01860000 


8 

7 
8 

IDENTIFICATION    DIVISION. 

01870000 
01S30000 
01890000 

PROGRAM-ID.     DSN8CC2. 

7 

ENVIRONMENT    DIVISION. 

01910000 
01920000 

8 

7 

DATA    DIVISION 

• 

01930000 
01940000 
01950000 

8 

7 

WORKING-STORAGE     SECTION. 
*************************************** 

01970000 
01980000 

7 

7 
9 

•       FIELDS    SENT 
01    KSGCODE 

TO    MESSAGE    RDUTINE               * 
PIC    XI04t. 

02000000 
02010000 

9 

01    OUTWSG 

PIC    X169I. 

02030000 
02040000 

12 

12 

EXEC    SOL 
EXEC    501 
EXEC    SOL 

INCLUDE    SOLCA    END-EXEC. 
INCL'JOE    0SN8CICC2    END-EXEC, 
INCLUDE    0SN1HCDP    END-EXEC. 

02050000 
02060000 
02070000 

12 
12 
12 

EXEC    SOL 
EXEC    SOL 
EXEC    StlL 

INCLUDE    0SN8NCEM    END-EXEC. 
INCLUDE    DSN8NCDM    END-EXEC. 
INCLUDE    0SN8NCA0f END-EXEC. 

02090000 
02100000 

12 
12 
12 

EXEC    SOL 
EXEC    SOL 
EXEC    SOL 

INCLUDE    DSN8MCA2    END-EXEC. 
INCLUDE    DSN8NC0V    END-EXEC. 
INCLUDE' DSN8HC0T    END-EXEC. 

02120000 
02130000 

8 

8 

LIN<A«E    SECTION. 
01       DFHCOHNAREA. 

02150000 
02160000 

:7--74 


12 


EXEC    S«)L     INCLUDE     DSNdMCCA    E-IO-EXEC. 


PROCEDURE     DIVISION. 


EXEC    SOL  INCLUDE  OSNflHCAE  END-EXEC. 

EXEC    SQL  INCLUDE  DSNSMCAL  END-EXEC. 

EXEC    SOL  INCLUDE  DSN8MCC-H  END-EXEC. 

EXEC    SOL  INCLUDE  DSN8HCDA  END-EXEC. 


DATE:     87/02/12 
TIME:     17:18 


021700  00 
021 AD 030 

02190000 
022C00O0 
O2210C0O 
02220000 
0223  0  000 
02240000 
02250000 


02260000 

7 

•**«*«*M*«M4t*Mft*M**«Mt**MMMM<i*t*MM*t 

t********** 

02270000 

7 

•       SOL    rfETURN    CUBE    HANDLING 

* 

02230000 

********  ************************  ******  ********  ** 

********** 

02290000 

12 

EXEC    SQL    WHENEVER     SOLERROR         GO    TO    DB-ERROR 

END-EXEC 

02300000 

12 

EXEC    SOL    WHENEVER    SQLUARNING    GO    TO    DU-ERROR 

END-EXEC, 

02310000 

t 

02320300 

************************************************ 

********** 

02330000 

7 

*       INITIALIZATIONS 

* 

02340000 

7 

************************************************ 

********** 

O23S00OO 

12 

WOVE     •DSN«CC2»     TO    MAJOR. 

02360000 

12 

MOVE        SPACES           TO     MINOR. 

02370000 

1 

02330000 

1                7 

************************************************ 

********** 

02390000 

!               7 

•       DETERMINES    WHETHER    NEW    REQUEST    OR    NOT 

* 

02400000 

************************************************ 

********** 

02410000 

IF  NEUtEQ  OF  CQNPARM  = 
AND  DATAOI  NOT  ■  •  ' 
AND    CflTAIN    NOT    =    'NEXT 


AND    PREV    OF    PCONVSTA 


THEN    MOVE     'V*     TO    NEWREO    OF    COHPARM. 
IF    NEMRE8    QF    COMPARH    NOT    =     »Y«    THEN 


GO    TO     IC2010. 


IF  NEW  REQUEST  AND  ACTION  IS  'ADD*  THEN 

CALL  DETAIL  PROCESSOR 
ELSE  CALL  SECONDARY  SELECTION 


1           12 

IF    PREV    OF    PCONVSTA    =    *     *     THEN 

02440QOO 

15 

HOVc     'V     TO    NtWREQ    OF    CGN2ARM. 

02450000 
02460000 

02470000 
02480000 

02490000 


02500000 
02S10000 
02520000 


02530000 
02540000 
02550000 


02560000 
02570000 
02580000 


12 

7 

* 

IF    ACTION    3f    INAREA    =     »A»     THEN 

••DETAIL    PROCESSOR 

02600000 
02610000 

15 

7 
L          12 

* 

GO    TO    DETAILO. 

••SECONDARY    SELECTION 
PERFORM:    SECSEL     THRU    END-SECSEL. 

02620000 
02630000 
02640000 

IF     MAXSEL     =     1      THEN 

GO    TO    DETAILO. 
GO    TO    EXITO. 


••IF    NO.    OF    CHOICES 

**G0    TO    DETAIL    PROCESSOR 


OT650000 
02660000 
02670000 
~0T5ffTJ0W~ 
02690000 
02700000 
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-  ^ti(:       DSNSCC2 


DETEftllNES     IF     VAL  1 0     SELF  C  TI  QH    UUP.  J£  R 


IF    PREV    OF    PCONVSTA    NOT 
MAXSEL 


**VALID    SELECTION    NO. 


CAre:     87/02/12 
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02711000 
02720100 

02730000 

GIVEN  02740000 
02750000 
02  760000 


IS 

DATAIN    =     'NEXT*    OR 

02770000 

IS 

0ATP.2    -    0ATO2    THEN 

02780000 

15 

GO    TO     TC201. 

02790000 

I 

02800000 

7 

* 

**DETAIL    SELECTION    GIVE* 

02810000 

12 

IF 

DATl    NUMERIC    AND    DAT2    =    '     •    THEN 

02520000 

15 

MOVE    DATl     TO    DAT2 

02830000 

IS 

MOVE     '0»     TO    0AT1. 

02840000 

12 

IF 

DATA2    NUMERIC 

02850000 

Is 

AND    DATA2    >     •00'    AND    DATA2    NOT    >    MAXSEL    THEN 

02860000 

IS 

MOVE     <Y*     TO    NEVREfl    OF    COBPARM 

32870000 

is 

GO    TO    DETAILO. 

02830000 

? 

* 

"INVALID    SELECTION    NO. 

02390000 

7 

* 

"PRINT    ERROR    MESSAGE 

02900000 

12 

HOVE     '072E'     TO    NSGCGDE. 

02910000 

12 

CALL    •DSNaNCG"    USING    MAJOR    MSGCOOE    OUTNSG. 

02920000 

12 

MOVE    OUTNSG     TO    NSS    OF    OUTAREA. 

02930000 

!             12 

GO 

TO    EX  I  TO. 

02940000 

02950000 

7 

•  * 

***** 

02960000 

7 

* 

DETERMINES    WHETHER    SECONDARY    SELECTION    OR    DETAIL                    * 

02970000 

** 

***** 

k************ *************************************** 

OJ98OO00 

IF     PREV     OF     PCONVSTA    =     '5*     THEN 

PERFORM    SECSEL     THRU    SND-SECSEL 
GO    TO    EXITO 


02990000 

"SECONDARY  SELECTION  J300Q000 

OlOlTj  0  0  0 

03020000 

03050000 


DETAIL  PROCESSOR 


03040000 
03050000 
03060000 


"03370000 
03080000 
03090000 


IF  PREV  OF  PCONVSTA  = 


THE*  GO  fC  DETAILO. 


*LOGIC  ERROR 


7 

* 

**PRINT    ERROR    MESSAGE    03100000 

12 

ptovc 

•066E*     TO    MSGCODE.                                                                                                         03110000 

12 

CALL 

'DSN8MCG*    USING    MAJOR    MSGCOOE    OUTMSG.                                                      03120000 

MOVE  OUTMSr,  TO 
GC  TO  EXITO. 


OF  OUTAREA. 


oTYToooo 

0314000C 
0315000 


**IIANDLES  ERRORS 


03160000 
03170000 
03180000 


1 


CALLS  SECONOQRY  S^L'ECTIUN  AND  RETURNS  TO  SBL  1 


•0SN8001*  TO  LASTSCR  IN  PCONVSTA. 


03190000 
03200000 
03210000 
03220000 
03230000 
03240000 
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*EMBE-r.       D$N£CC2 


START 
COL       


If    BjJlCT    OF     rNARE3    =     'OS'     THE^ 

KftFOfttf    DSN8MCA    THK'J    EhO-DSN!V1CA 
ELSE 


DATE:     37/02/12 
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iiflflM  I nTsTR All V E  0T?TO 0 00" " 

**nt?AsrnENT  structure  03260000 

0327Q300 

03230000 

03290000 

••INDIVIDUAL  DEPARTMENT  03300000 

"PROCESSING  03310000 


14 

13 

IF    dSJECT    OF     INARF4    *     »DE*     THEM 

PERFORM    1SN8MCA     THRU     EN3-DSN8MCA 

03320000 

IS 
7 
7 

; 

EL^E 

••INDIVIDUAL    EMPLOYEE 
**PR0:ES$IN6 

03340000 
03350000 
03J60000 

If  OBJECT  OF  INAREA 

PERFORM  OSNIMCA  THRU 


THEN 
ND-0SN8MCA 


03370000 
03380000 
03391000 


03400000 
•ERROR    MESSAGE  03410000 

•MISSING    SECONCAtY    SEL       03  420000 


HOVE     'OdSE*     TO    HSGCODc 

CALL    'D5N3WCG*    USING    (1AJ0R    HSGCODE    OUTHSG 

WOVE    OUTMSG    TQ    HSG    OF    OUTARfcA 


034'30000 
03440000 
03450000 


GO    TO    EX1T0. 


END-SECSEL. 


03fSQUoTr 

03470000 

03480000 


CALLS    DETAIL    PROCESSOR    AND    RETURNS    TO    SAL    I 


DETAILO. 
MOVE 


03490600 
03500000 
03510000 


DSN8002'     TU    LA5T5CR    IN    PCONVSTA. 


••ADMINISTRATIVE 


If    OBJECT    OF     INAREA    =     'DS1     THEN 

PERFORM    0SN8MCD    THRU    END-DSN3MCD 


•DEPARTMENT    STRUCTURE 


03530000 
035400 OC 


035S0OO0 
03560000 
03570000 


If    OH.IECT    OF     IHARFA    =     'DE*    THEN 

ff.FilRM    0SN3NCE    THRU    END-DSN3HCE 
ELSE 


03530000 
••INDIVIDUAL  DEPARTMENT  03590000 
••PROCESSING  03600000 


IF     OrlJ^CT    OF     INAREA 


••INDIVIDUAL    EMPLOYEE 
••PROCESSING 


~5~36l0000 
03620000 
03630000 


PERF0R1    OSNKMCf     THRU    END-DSN8MCF 


~CT5T0lHHr 
03650000 
03660000 


03670000 
03680000 
03690000 


MOVE     '062E*     TO    MS6C0QE 


••ERROR    MESSAGE  03700000 

••MISSING    DETAIL    MODULE       03710000 
03720000 


CALL     'DSNSMCG*     USING    MAJOR    MSGCOT?    OUTMSfi" 


•RETURNS    TO    SDL    1 


03730000 
03740000 
03750000 
05760000 
03770000 
03780000 


7-77. 


START 
COL      


t<LC  CICi    Kl  CU-iN    ENO-EXEC. 

JE  KE  C  SQL     f HCLUOE     D5N3HC.'.    iND-EXEC. 

f*EC  SUL     INCLUDE    0SV8HC0    tND-EXEC. 

EXEC  SOL     INCLUDE    D5N8J1CE     END-EXEC. 

EXEC  SQL     INCLUDE    DSN8HCF     END-EXEC. 


CATl-     87/0?/K 
THE:    17:13 


03790000 
03300000 
03810003 
038200C0 
03830000 
03840000 


7-78- 


DfiNWQ,  O'.NSI;  ip 


DATE:     87/0^/12 
TIME:     17:  57 
PAGE: 


|    "JJT  -__.t ,„„_+ 2 « 3 + 4_ 

7         •*-««Df.'l,iMCS  -  VALIDATION  MODULE  FOR  SEARCH  CRITERIA  -  COBOL*****  OCOIOQOO 
7         *                                                                   *  00020000 
7         •       riODULE  hrtME  =  D5N8MC5                                      *  OOOJOOOO 

7                       *                                                                   *  00040000 
7         *       DESCRIPTIVE  NAME  =  DB2  SAMPLE  APPLICATION                 *  00050000 
7         *                           VALIDATION  MODULE  FOR  SEARCH  CRITERIA  *  00060000 

7         *                           COBOL                                   *  00070000 
7                       •                                                                                                                                                                              *  00030000 
7         *                                                                   *  00090000 

i       7         *  COPYRIGHT  *     574C-XYR  (CI  COPYRIGHT  IB*  CORP  1982,  198S         *  OOtOOOOO 
7         *  REFFR  TO  COPYRIGHT  INSTRUCTIONS  FOR*  NUflBER  6120-2083          *  00105000 
7         *                                                                   *  00110000 

7         *  STATUS  =  RELEASE  2,  LEVEL  0                                     *  00120000 
7         *                                                                   *  OOUOOOO 
7         *       FUNCTION  =  THIS  MODULE  VALIDATES  SPECIFIC  INPUT           *  00150000 

'         *                   AND  MOVES  IT  TO  THc  OUTPUT  NEJSASE             *  00160060 

7         *                   TOGETHER  WITH  A  TEXT  FIELO.                     *  00170000 

17*                                                                   *  00150000 

7         *       -4DTES  =  NONE                                                *  00190000 
7         *                                                                   *  00200000 
7         »                                                                   *  00210000 

7         *       MODULE  TYPE  =                                               *  00220000 
7         *           PROCESSOR    =  D82   PRECOMPILER,  COBOL  COMPILER        *  00230000 
7                        *           MODULE  SIZE  =  SEE  LINKEDIT                             *  00240000 

7         *           ATTRIBUTES   =   NONE                                    *  00250000 
7         *                                                                   *  00260000 
7         *       ENTRY  POINT  *  DSN8MC5                                      *  00270000 

7         *           LINKAGE  =  INCLUDED  BY  MODULE  DSN8CC1                   *  00290000 
7         *                                                                   *  00300000 

7         *            INPUT    =  PARAMETERS  EXPLICITLY  PASSED  TO  THIS        *  00310000 
7         *                      FUNCTION:                                    *  00320000 
7         *                     SYMBOLIC  LA3EL/NAME  =   NONE                   •    003:50000 

7         *                     DESCRIPTION  -  NONE                            *  00340000 
7         *                                                                   •  00350000 
7                       *           OUTPUT  =  PARAMETERS  EXPLICITLY  RETURNED:               *  00360000 

7                        *                                                       SYMBOLIC  LAPEL/NAME  =   NONE                   *  00370000 
7         *                     DESCRIPTION  =  NONE                            *  00330000 
7                       *                                                                   *  00390000 

7                       *       EXIT-NORMAL  =  THIS  CODE  IS  "PERFORMED",  SO  IT  EXITS  TO    *  00400000 
7                        *                      THE  CODE  FOLLOWING  THE  -PERFORM-  STATEMENT  *  00410000 
7         *                                                                   *  00420000 

7                        *       EXIT-ERROR  =  IF  SQLERROR  OR  SQLWARNING,  S«L  WHENEVER      *  00430000 
7         *                     CONDITION  SPECIFIEO  IN  DSN8CC1/IC1  WILL  BE   *  00440000 
'         *                     RAISED  AND  PROGRAM  WILL  GO  TO  THE  LABEL      *  00450C0G 

7         *                     DB-ERROR.                                     *  00460000 
7                     *                                                            *  00470000 
7         *       RETURN  CODE  =  NONE                                        ,  *  00480000 

/        *                                                            *  00490000 
7         *       ABEND  COOES  »  NONE                                         *  00500000 
T                     *                                                   '  '              .                                                                                        *  00510000 

7                        •       ERROR  MESSAGES  =                                            *  00i20000 
7         *               DSN3070E  -  VITAL  DATA  MISSING  IN  TABLE  'TOPTVAL*   *  00530000 
7         *                                                                   *  00540000 

7-79 


^ 


i 

lATASFT:  DSNJZO.DS*',  "'MP 

OATE:  87/02/12 
TI.^E:  17:J7 
PAGE:  2 

* 

STflW  I 
COL 

, , ,__;___<___., __„ 

7 + 5 

*  EXTERNAL  REFERENCES  =  ^OSI  VARIABLES  ARE  GLOBAL  AND 

*  3EFINED  IN  DSN3CC1/IC1. 

*  oossoooo 

*  00560000 

*  00573000 

*  ROUTINES/SERVICES  = 

*  DSN5AC6              -  ERROR  MESSAGE  ROUTINE 

*  00580000 

*  00590000 

*  00600000 

*  DATA-AREAS         =   NONE 

*  CONT'MIL-BLOCKS     = 

*  00610000 

*  00620000 

*  00630000 

7 
7 

*  SQLCA                 -  SQL  COMMUNICATION  ARE* 

*  TABLES  =  NONE 

*  00646000 

*  00650000 

*  0066GQ00 

*       CHANGE-ACTIVITY  *   NONE 

*  00676000 

*  00680000 

*  00690000 

»      'PSEUDOCODE* 

*  0070u000 

*  00710000 

*  00720000 

*  PROCEDURE 

*  INITIALIZE  RETURNCnDE  TO  *0". 

*  00736000 

*  00740000 

*  00750000 

*  FILL  It  THE  DISPLAY  AREA 

*  FROM  VOPTVAL  1  SEARCH »SELTXT1 

*  DEPENDING  ON  SEARCH  REQUIRED 

»  66760000 

*  00770000 

*  00730000 

3 

*  RETURN. 

*  IF  SEARCH  CRITERIA  NOT  FOUND 

*  00790000 

*  00800000 

*  00310000 

* 

] 

*  RETRIFVE  A  LIST  OF  SEARCH  CRITERIA  UHICH  EXISTSr 

*  HEADTXT,  INFOTXT  AND  PFK.TXT 

*  FROM  VOPTVAL 

*  00820000 

*  00830000 

*  00840000 

*  DEPENDING  ON  MAJSVS  =  MAJSYS  *  ACTION  =  ACTION  » 

*  OBJECT  ■  OBJECT   AND  SEARCH  ■  BLANK 

*  FILL  IN  DISPLAY  AREA 

*  00850000 

*  00360000 

*  00870000 

*  SET  RETURNCODE  TO  M». 

*  END. 

*  00S30000 

*  00390000 

*  00900000 

*  00910000 

00930000 

i 

8 

7 

0SNAMC5. 

00940000 
00950000 

7 
7 

12 

*                   **   INITIALIZE  RETURN  CODE 
WOVE  »0«  TO  RETCODE. 

00970000 

*****  00980000 

00990000 

7 

MOVE  »DSN8»1C5»  TO  MAJOR  IN  OSNS-NODULE-NAME. 

01000000 

01010000 

7 
7 

*  **    LET'S  SEE  IF  THE  SEARCH  CRITERTA  SPECIFIED  0*      ;  ,:  i  ;.  i 

*  **    INPUT-rXISTS  BY  TRYING  TO  RETRIEVE  SEARCH  C RITERIATO 1040000 

*  **    AND  TEXT     '                                        T01050000 

7 

*                                             **RETRIfVAL 

01070000 

OlOSOOOO 

- 

7-80. 


DATASEri     D$ftI20*DS»r. 


STAKT 
COL 


□ 


S'iL   >ct£cr  aa: 
into     :poprvaL. 

rwgg  VOPTVAL 
WHERE  HAJSYS 

AID  ACTION 

ASP  OBJECT 

LlHft  SRCHCRIT 

AND  SRCHCRIT 

AND  1SCRTVPE 


:  INAREA..14JSYS 
: INAREA. ACTIOS 
:INAREA.DBJEC  T_ 
:  INAREA.SP'H 


••SEARCH    CRITERIA    EXIST 
••FILL    IN    DISPLAY    AREA 


SELTXT  IN    P'JPTVAL     TO    DESr.4     IN    QUTAREA. 

S3CH  IN    E.filVefl    TO    SRC-*  IN    QUTAREA. 


GO  TD  END-DSN8HC5. 


********************* 


•mm  37/02/12 

TI.1E:  17:37 
PAGE:  3 

7 1 d 


01090000 
01100000 
01110000 
01120000 
01130000 
01140000 

ottsoooo 

01160000 
01170000 
01180000 
01190000 

oi2000oq_ 

01210000 
01220000 
01230000 
01MOOOO 
01250000 
01260000 
31270000 
01230000 
01290000 


7 

*                          **          SEARCH    CRITe^IA    NOT    FliJ'JO                                                                        01300000 

7 

*                          **          PROVIDE    0    LIST    OP     SEA3C*    CRITERIA    WHICH    EXIST                 01310000 

7 

ft* ************** ************** ********** ft***************** *******    01320000 

HOVE 
HOVE 


space  to  srch     :>j  qiitarea. 
space  to  desc4  in  outarea. 


SQL  0"£N  V04  END-EXEC. 
♦  1  TO  I. 


*»   OPEN  CURSOR 


01330000 
01340000 
013S0000 


01360000 
01370000 
013SOOO0 


EXEC 
«OVE 


01390000 
01400000 
01410000 


11 

NC5-10. 

OU2036C 

t? 

IF 

I    NOT    >    15    THEN 

01430000 

16 

EXEC    SOL    FETCH    V(K     INTO 

:PQPTVAL. SRCHCRIT    f 

01440000 

:POPTVAL. SELTXT    END-E <  ET 
IF    SQLCQDE     IS    NOT    EQUAL    TO    MOO    THEN 

HOVE     SPACES  TO    FIELD-11I1 


01460000 
01470000 


?*, 

HOVE     SRCHCRIT    IN 

POPTVAL    TO    FIELD-21II 

01480000 

23 

HOVE    SELTXT          IN 

POPTVOL    TO    FIELD-5II1 

01490000 

23 

ADD    1     TO    I 

01500000 

GO    TO    HC5-10. 

01520000 

7 

••CLOSE    CURSOR 

01530000 

12 

EXEC 

SOL    CLOSE    V04    END-EXEC 

t 

01550000 

12 

HOVE 

I    TO    J. 

01560000 

7 

* 

••PUT    BLANKS    AT 

01580000 

7 

* 

••END    OF    LINE 

01590000 

8 

HC5-30. 

12 

IF    J 

NOT    >    15    THEN 

01610000 

17 

HOVE    SPACE    TO    LINEOIJ) 

01620000 

.7-81: 


'f.TASei  :    3SM2D*  i)SNS"- 

|         START 

|            COL 

, ,_ 

17 
17 

7 

ADO    1 
SO    TO 

MT£1     87/02/'.J 
TIMES     17U7 

PAGE:    4 


0I6300C;i 
11640QCO 
016500C 


es  * 


016600  00 
/01670000 
01680000 


016900(50 
017000C0 
01710003 
1  0172000O- 
01730300 
01740000 
01750000  " 


•  IF  NCI  VALID  ENTRY  I 
"OPTION  VALIDATION 


**BASE  TABLE  (TOPTVAL 
**TRY  TO  SET  ERROR  TE 


TO  RETCOOE 


20 

?0 

MOVE     '070E*     TO    *5GCDDE 

CALL    *DSN8NC6»    USING    MAJOR    MSGCODE    CUTMSG 

01760000 
01770000 

20 

MOVE    OUT*SS    TO    15GTEXT    It    KSG 

**RETURW 

OWSOJO-} 
01790000 
01800000 

20 

SO     TO    END-DSNSMCi. 

01810000 

IF    ONLY    THE     SEARCH    C  <U  TE Rl A    E X  ISTS    THEN    USE 
OEFAULT    TO    SET    UP    SEARCH    CRITERIA    AND 
DESCRIPTION     IN    OUTPUT 


01820000 
01830000 


THE    01S*0oW~ 
018S0000 
01860000 


ilittlHItlll 


»*•    01870000 
01880000 


12 

IF 

1=2    AND    SRCH     IN    INAREA    =    •     •     THEN 

01890000 

01900000 

1              15 

HOVE    FIELD-2III     TO    SRCH          IH    INAREA 

01910000 

!      15 

WOVE    FIELD-2111     TO    SRff          IN    OUTAREA 

01920000 

15 

MOVE    FIELIJ-3I1)     TO    0ESC4       IN    OUTAREA 

01930000 

IS 

MOVE     SPACE                     IC    LINEO    (11 

01940000 

7 

* 

"RETURN 

01950000 

!       " 

GO    TO    END-3SNBMC5. 

9  196  0100 
01970000 

!                7 

******* 

********************************************************** 

01930000 

7 

* 

*•       SEARCH    CRITERIA    WAS    NOT    FOUND 

01990000 

02000000 
02010000 


12 

MOVE     *1*     TO    RETCODE. 

02020000 
02030000 

12 

EXEC    SQL    SELECT     * 

02040000 

POPTVAL 
FrtOfl       VHPTVAL 
WHERE    HAJSYS 


:  INAREA. MAJSYS 


"OTTJTOUOo- 

02060000 

02070000 


020$0000 
02090000 
02100000 


AND  ACTION 
AND  OBJECT 
AND    SRCHCRIT 


: INAREA. ACTION 
: INAREA. OBJECT 


02110000 
REA  02120000 
02130000 


"FILL  IN  DISPLAY 
••WITH  HEADING.  PFK 


**t  HES5AGE  INFOT 


HOVE  HEAOTXT  IN  POPTVAL  TO  HTITLE   IH  OUTAREA. 


02150000 
02160000 


■     .7-82 


OATHS: 


9SN120  «  tt$«»S  A*(P 
DSftSMCS 


I         ST AST 

1       cm. 


DATE:     17/02/12 
TIME:     17:17 
PAGE:     5 

7 «. 3 


WOVE     (NfJTXT     IN    POiTVAL    TO    J1SS  IN    OUTAREA. 

10VF.    ^FKTXT       IN    P'JPTVAL    TO    PFiCTEXT     IN    OUMREA. 


END-DS^flCS. 


021700  00 
02 130004 

02190000 

0 2200000 

**HfIHHN  TO         02210000 

*«DSN8HCI  WODULE    0 2220000 

02230000 


1 


\   7-83, 


irtCXX 


-! < 2- 


1AT£: 

TIME: 

PAGE: 

-6 ♦ 7- 


87/n^/!^ 

17:  J/ 


7         *                                                                  *  00021000 
7         *       MODULE  N.'iMF  =  DSNlNCXX                                     *  00030000 

7         *                                                                   *  000*0000 
7         *       DESCRIPTIVE  MANE  ■  SOLERRQR  HANDLING  MODULE               *  OOOSOOOO 
7         *                          IC080L  VERSION                           *  00060000 

7         *                                                                  •  00070000 
7         *  COPYRIGHT  =  5740-KYR  IC1  COPYRIGHT  HM  CORP  1?32.  1985         »  00080000 

7         *  Rfffh  TO  COPYRIGHT  INSTRUCTIONS  FOR*  »'JMBER  Gl?<J-2033          *  00035000 

7         *                                                                  *  00090000 
7         *  STATUS  *  RELEASE  2»  LEVEL  0                                     *  00100000 
7        *                                                            i  0012000C 

7         •       FUNCTION  =  THIS  NODULE  IS  ENTERED  AS  STANDARD  ACTION      *  00130000 
7         *                  WHEN  A  (S4LEKftOK*  OR  * S9LWARNIXG •  OCCURS       *  00140000 
7         .                                                                   *  00150000 

7         •       NOTES  =                                                     *  00150COO 
7         •                                                                  *  00170COO 
7  "       *       MODULE  TYPE  =  BLOCK  OF  COBOL  CODE                          *  00130000 

7         *                                                                   *  00190000 
7         *       PROCESSOR  =  OB?   PRECOMPILER*  COBOL  COMPILER              *  00200000 
7         *                                                                   *  00210000 

7         *       MODULE  SIZE  =  SEE  LINKEOIT                                 •  00220000 
7         *                                                                  *  00230000 
7         *       ATTRIBUTES  =  REUSEABLE                                     *  00240000 

7         *                                                                  *  002*0000 
7         *       ENTRY  POINT  =                          ,                    *  00260000 
7         *                                                                   *  00270000 

7         *       PURPOSE  =  SEE  FUNCTION                                     *  00280000 
7         *                                                                   *  0029000C 
7         *       LINKAGE  =  *                                                 *  00300000 

7         *                                                                   *  00310000 
7         *       INPUT  =  PARAMETERS  EXPLICITLY  PT.iSFD  TO  THIS  FUNCTION:    *  0032000O 
7         *          SYMBOLIC  LABEL/NAME  =   N/A                              *  00330000 

7         *          DESCRIPTION  =  OD^AME                                    *  00340000 
7         *                                                                   *  00350000 
7                       *                 OUTPUT  *  PARAMETERS  EXPLICITLY  RETURNED:                   *  00360000 

7         *                PCONVSTA. OUTPUT. LINE!*  )                                                                      *  00370000 
7         «          SYMBOLIC  LABEL/NAME  =   N/A                              *  00330000 
7         *          DESCRIPTION  =  N/A                                       *  00390000 

7         *                                                                  *  00400000 
7         *       EXIT-NORMAL  =                                               *  00410000 
7        *                                                            *  00420000 

7         *       EXIT-ERROR  =                                                *  00430000 
7         *                                                                   *  00440003 
7         *       RETURN  COD  =  =  N/A                                          *  00450000 

7         *          REASON  CODE  =  N/A                                       *  00460000 
7         *          MESSAGE  10   =  N/A                                       *  00470000 
7         *                                                                   *  00480000 

7         »       ABENO  COOES  *  N/A                                          *  0U4VU0UO 
7         *                                                                   *  00500000 
7         *       ERROR-MESSAGES  »                                           *  00510000 

7         *       EXTERNAL  REFERENCES  =                                      *  00530000 
7         *       ROUTINES/SERVICES  ■  MODULE  DSNTIAR                        *  00540000 

7^84 


HEJIfTtHi       DSNHMCXX 


|         START 

cot 


DATf:     B7/02V12 
TIME:     17:37 
PAGE:    2  __ 

7 + 9 


7 
7 
7 

►                    DATA-AREAS     =                                                                                                                                            * 
C.TUSOL-.1UJCKS    =                                                                                                                 * 

0O55OOCT 
00560001 
005700 03 

7 

*                  TAaLES    =                                                                                                                                       * 

00580000 
00590000 
00600000 

7 

7 

7    - 

change-activity  =                                                                             * 
pseudocode     =                                                                                    • 

00610001 
00620000 
00630000 

7 
7 
7 

THIS    CODE    IS    ENTERED    AS    STANDARD    ACTION    WHEN    AN    '  S«L  E  RROR  •    OR    * 
•SDLWARNING*    OCCURS.                                                                                                                     t 

0064000? 
00650000 

00660030 

7 
7 
7 

* 
INFORMATION    DESCRIBING    THE    ERROR    WILL    BE    PLACED    IN    THE    DISPLAY* 
AREA    OF     THE    OUTPUT    MESSAGE    /    PC  1NV5TA. OUTPUT .L INE 1  *  I    /                       * 

00670000 
00680000 
00690000 

7 
7 
/ 

IN    THE    FOLLOWING    Wi.Y".                                                                                                                  * 
LINE       4       WILL    BE    BLANK                                                                                                          * 

00700000 
00710000 
00720000 

7 
7 

7 

LINE       S       CONTAINS    n    MESSAGE    INCLUDING    NANE     (MAJOR    AND    HINORM 

OF    THE    NODULE    WHERE    THE    ERROR    OCCURRED                                     * 

LINE       6       WILL    BE     BLANK                                                                                                         * 

00730003 
00740000 
00750000 

7 

7                     * 

7 

LINES    7-14    CONTAIN    THE    CONTENTS    OF     'SOL    COMMUNICATION    AREA*     * 
ft*************************************************************** 

00760003 
00770000 
00780000 

OS-ERROR. 
MOVE 
HOVE 


TO    LAST5CR    IN    PCONVSTA. 
TO    EXITCODE. 


00790000 
00800000 
00810000 


" 

MOVE       SPACES          TO    LINEOUI.    LINE0(6). 

00820000^ 

i            12 

STRING    •<=========            A    SOLERROR    HAS    OCCURRED    IN    MODULE:     » 

*       00830000 

1          ?o 

MAJOR.    SPACE*    MINOR.     •         »««===a  =  >» 

00840000 

20 

DELIMITED    RY    SIZE 

00850000 

20 

INTO    LINE0I5). 

00860000 

I? 

CALL     'DSNTIAR*    USING    SQLCA    ERROR-MESSAGE    OAVA-LEM. 

00370000 

12 

.1CVE    CRfi-TEXT!     TO    LIH£0<7!. 

00880000 

12 

MOVE    ERR-TEXT2    TO    LINE018J. 

00890000 

1              12 

MOVE    ERR-TEXT3    TO    LINE0)9>. 

00900000 

MOVE  ERR-TEXT4    TO  LINEOdOI. 

MOVE  ERR-TEXT5     TO  LINE0I11). 

MOVE  ERR-TEXT6    TO  HNE0I12I. 

MOVE  ERR-TEXT7    TO  LINE0M3I. 

MOVE  ERR-TEXTS    TO  LINE0U4I. 


00910000 
009200CO 
00930000 
00940000 
00950000 


7-85 


DATE: 
TIME: 
PAGE: 


START 
COL   ♦ 1  — 


/                        .H....H.H.     ::,N8MCF    -    DffrtlL     EMPLOYE     MOOULE    -    COBOL    •*«*******  *OQ  v  JOOO 
7                       *                                                                                                                                                                                    OO"1  "31)00 
7                       *          •'.'•nULE    "Ifii;                   =    DS»(<"*Cf                                                                                                    00*   '  1000 

I                       *                                                                                                                                                                                    000,0000 
7                       *          DESCRIPTIVE    NAME    =    DB2    SAMPLE    APPLICATION                                                           00050000 
7                       *                                                              DETAIL    EMPLOYEE     MODULE                                                           00060000 

7                        *                                                              COBOL                                                                                                          00070000 
7                     ft                                                       ORGANIZATION                                                                              00030000 
7                        *                                                                                                                                                                                   010-0000 

7                       *    COPYRIGHT    *     5740-XYR    (CI     COPYRIGHT    13,1    CORP    19B2t     1985                             00100000 
7                       *    REfER    TO    COPYRIGHT    INSTRUCTIONS    FORI    NUMBER    C120-2083                                00135000 
7                       *                                                                                                                                                                                    00110000 

7                       *    STATUS    =    RELEASE    2,    LEVEL    0                                                                                                       00120000 
7                       *                                                                                                                                                                                    001'. 0000 
7                       *          FUNCTION    =    THIS    MODULE    HANDLES    THE     DETAIL    OPERATIONS                             OCUOOOO 

7                        *                                        FOR    AN    EMPLOYEE    5UCH    -»S    DISPLAY,     ADD  f  I N5EP.  T »  r                  00'.  iOOOO 
7                       •                                       UPDATE,    AND    ERASE  I  DELETE >     IN    THE    MAJOR                                     DO 1 70090 
7                       *                                        SYSTEM    ORGANIZATION.                                                                                       00130000 

7                       *                                                                                                                                                                                   00190000 
7                        *         NOTES    =                                                                                                                                                        00200000 
7                       *                  DEPENDENCIES    =    NONE                                                                                                               00210000 

7                       *                  RESTRICTIONS    =     THE    VALID    OPTIONS     ARE:                                                              00220000 
7                       *                     .0-D-EM-EItEN,DI»ON                                                                                                             00230000 
7                       *                     .0-A-EM-EI*EN,DI                                                                                                                     00  2  4  0000 

7                          *                        ,0-U-EM-EI,EH.DI.DM                                                                                                                          O025O0OO 
7                       *                     .O-E-EM-EI »EN»DI,DN                                                                                                             00260000 
7                        *                                                                   .                                                                                                                00270000 

7                       *         MODULE     TYPE    =                                                                                                                       '                 00280000 
7                        *                  PR0CE5S0R          =    DB2      PRECOMPILER,     COBOL    COMPILER                                     00290000 
7                       *                  MODULE     SIZE    -     SEE    LINK-EDIT                                                                                         00300000 

7                        "                  ATTRIBUTES       =       REUSABLE                                                                                                    00310000 
7                       *                                                                                                                                                                                    00320000 
7                        *          ENTRY    POINT    *                                                                                                                                        00330000 

7                        *                  PURPOSE     -       SEE     FUNCTION                                                                                                    00340000 
7                        *                  LINKAGE    =       MODULE    CALLED    3Y                                                                                         00350000 
?                        *                     .DSNRMCA       FOR    DISPLAY,    AND    FIRST    STEP    UPDATE    OR    ERASE               00360000 

/                        *                     .DSN8IC2       FOR    FIRST    STcP    ODD,    AND    ALL    SECOND    STEPS.                     003700GO 
7                       *                                                                                                                                                                                    00380000 
7                        *                  INPUT    =    PARAMETERS    EXPLICITLY    PASSED    TO     THIS    FUNCTION:                00390000 

7                        *                 COMMON    AREA.                                                                                                                                   00400000 
7                        *                                                                                                                                                                                    00410000 
7                        *                                          SYMBOLIC    LABEL/NAME    *    PCON VSTA , PREV                                           00420000 

7                        *                                          DESCRIPTION                          =     *D»    OR    •     •    PREVIOUS     REOUEST    00430000 
7                        »                                                                                                                                                                                    00440000 
7                        *                                          SYMBOLIC    LA3ELMAME    =     .MAXSEL                                                           00450000 

7                       *                                          DESCRIPTION                          =     1-13    NUMBER    OF     SELECTIONS          00460000 
7                       *                                                                                                                                                                                    00470000 
7                        *                                          SYMBOLIC    LABEL/NAME    =    OUTAREA. 3UTPUI0                                     00480000 

7                        *                                          DESCRIPTION                          =    SECONDARY    SELECTION    OUTPUT       00490000 
7                       *                                                                                                                                                                                    00500000 
7                        *                                          SYMBOLIC    LABEL/NAME    =    COMPARM    .NEUREQ                                     00510000 

7                       •                                          DESCRIPTION                          =     »V»    OR    •  N  •    NEJ    REOUEST                  O052UUU0 
7                        *                                                                                                                                                                                    00530000 
7                        •                                          SYMBOLIC    LABEL/NAME    =     INAREA                                                             00540000 

7-86 
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S  TUH  r 
COL 


7 

DESCRIPTION                          =    USER     I*Ii»U  T 

oossooo.; 

0056000  1 
305700^" 

7 

7 
7 

aurvui  =  PMMierezs  explicitly  returned: 

CUMMON    AREA. 

00580000 

00590000 
00600000 

7 

7 
7 

SYMBOLIC    LA8EL/NA.1E    =    OUTARE A. OUTPUTO 
DESCRIPTION                          =    SCREEN    DETAIL    OUTPUT 

0061000  1 
006200"  ! 
006300'.-! 

7 

I 

SYMBOLIC    LABEL/NAME    =    PCON  VS  TA  .PREV 
DESCRIPTION                         ■     •[>•    OR    •     ■    DEPENDING    ON 
STEP    .tUNBER 

0064000'! 
OOfiSOO','') 
00660000 

I 
7 

7 

EXir-\n»MAL    = 

00670000 

00680Q<» 
0069000) 

! 

EXIT-EKKOR    = 

00710000 
0072000) 

7 

7                    < 

7 

RETURN     CODE     =              NONE 
ABE^D    CDDES    =             NONE 

00730000 
00740000 
00750000 

7 

7 
7 

ERROR-MESSAGES    ■ 
DSN8001I    EMPLOYEE    NOT    FOUNO 

0076 00 00 
00770000 
00780000 

7 

7 
7 

OSNHC02I    fMPLQYEE    SUCCESSFULLY    ADDED 
OSN300SI    EMPLOYEE    SUCCESSFULLY    ERASED 
D5N8004I    EMPLOYEE    SUCCESSFULLY    UPDATED 

00800000 
00310000 

1 

7 
7 

DSN8005E    EMPLOYEE    EXISTS    ALREADY*    ADD    NOT    DONE 
0SN8006E    EMPLOYEE    DOES    NOT    EXIST*    ERASE    NOT    DONE 
DSN8007E     EMPLOYEE    DOES    NOT    EXIST*    UPDATE    NOT    DONE 

00820000 
00830000 
00840000 

7 
7 
7 

DSNS069E     NO     VALID    SELECTIONS    OUALIFY    FOR    THIS    REOUEST 

00350000 
00860000 
00870000 

1 

EXTERNAL    HEi-ESeNCES    = 
ROUTINES/SERVICES    = 

DSN8MCG                                     -    ERROR    MESSAGE    ROUTINE 

00880000 
00390000 
00900000 

7 

7 
7 

DATA-ARFAS     = 

DSNKMCCA                                   -    SAMPLE    COMMON    AREA 

009100.50 
009?0000 
00930000 

7 
7 
7 

CONTROL-BLOCKS    = 

S1LCA                                           -    SOL    COMMUNICATION    AREA 

00940000 
00950000 
00760000 

7 
7 
7 

ra8t.es  = 

VDEPT          =     DEPARTMENT            TABLE    VIEW 

00970000 
00980000 
00990000 

7 

7 
7 

VEHPi.          =     EMPLOYEE                  TABLE    VIEW 

*                               VOPTVAL    =     VALID    OPTIONS    TABLE    VIEW 

VDSPTXT    ■    DISPLAY    TEXTS    TABLE    VIEW 

01000000 
01020000 
01030000 

7 

7 
7 

CHANGE-ACTIVITY    =,  NONE 

01040000 
01050000 
01060003 

7 

7 
7 

•PSEUDOCODE* 

01070000 
01080000 
01090000 
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7 

•         Ptv.:*DUH't 

01100001 



*           D    :i_arations. 

011100'. J 

OUZOO-.O 

7 

*             IiM  riftLIZArtON* 

OUSOO'iO 

7 

*                .CHECK    IF    OPTION    IS    VALtO    FOU    THIS    KOSULE 

01K0CC0 

7 

*                       MAJOR    SYSTEM    =     '0'    AND    OBJECT    =     'EM? 

01150000 

*                   -f    NOT*    RETURN    WITH    EUROS    MSG    069=     INVALID    REQUEST. 

01160000 

01170010 

•              S  I  g  f»- 1  . 

01130000 

*                .flU.    IN    TEXT    LINES    (  HEUOE  3  t  IHFORMA  f  ION    AND    ?FK> 

0119000J 

7 

*                     FROM    VOPTVAL    DEPENDING    ON    ACTION     ^EflUIRED. 

01200000 

1                 7 

•                .IF    NOT    ADD*     SAVE    EMPLOYEE    ID,    DEPENDING    ON   MAXSEL. 

OlZlOOu  ■ 

*                     IF     HAXSFL=1     EMPL-IO    IS    ON    THE    FIRST    DETAIL    LINE, 

01220000 

*                     IF    MAXSELM     THE     INPUT    DATA   CONTAINS    THE    DETAIL    LINE 

01230000 

*                     NUMBER. 

012*0000 

*                .JET    DEPARTMENT    AND    EMPLOYEE    FIELD    liAMES, 

012500™ 

*                     FROM    V05PTXT. 

01260000 

•                .  IF     DISPLAY    OR    DELETE    ACTION, 

01270000 

*                     PROTECT    EVERY    DETAIL     INPUT    FIELD. 

012SO00O 

*                  .IF     ADD     OR     UPDATE     ACTION, 

01290000 

*                     PROTECT    EMPLOYEE-ID    AND    ALL    DEPARTMENT    FIELDS, 

01300000 

*                     POSITION     THE     SCREEN    CURSOR    TO    EMPLOYEE     NAME    FIELD. 

01310000 

*                .IF    ADD,    UNPROTECT    EHPLOYEE-IO    FIELD, 

01320000 

*                     MOVE    USER     INPUT    TO    CORRESPONDING    OUTPUT    DATA    FIELD, 

01330000 

*                        CREV^'D'     AND     RETURN. 

01340000 

»                .AND    FOR    DISPLAY,    UPDATE    AND    ERASE, 

01350000 

*                     FETCH    EMPLOYEE    AND    DEPARTMENT    CURRENT    VALUES, 

01360000 

7 

*                       PREV='D*     AND    RETURN. 

01370000 

7 
7 

*                    OR    MSG     'EMPLOYEE    NOT    FOUND'     AND    RETURN. 

01580000 
01390000 

*             ST£P-2. 

01400000 

*                .TF    ADD,    DO     IT    AND    MSG 

01410000 

•                     EITHER     'EMPLOYES    ADDED    SUCCESSFULLY' 

01420000 

*                          CR    »cn?Lavc2    z'Atsrs    ALREADY,    ADD   NOT   DON?* 

01450000 

*                     PREV=*     '     AND    RETURN. 

01440000 

*                .IF    UPDATE,     00    IT    AND    MSG 

01450000 

*                     EITHER     'E1PL0YEE    UPDATED    SUCCESSFULLY* 

*                                OR     'FNPLOYEE    DOES    NOT    EXIST,    UPDATE     NOT    DONE' 

01*70000 

*                       RETURN. 

01480000 

*                .IF     ERASE,     DO     IT    AND    MSG 

01490000 

*                     EITHER    'EMPLOYEE    ERASED    SUCCESSFULLY* 

01500000 

*                               OR     'EMPLOYEE    DOES    NOT    EXIST,    ERASE     NOT    DONE' 

01510000 

*                     PREV='     '     AND    RETURN. 

01520000 

*                .OR    MSG    M9E     INVALID    REQUEST. 

01550000 

•                        RETURN. 

01543000 

*             ENO. 

01550000 
01560000 

**************************************  ********  ******************* 

01570000 

01580000 

0SN4MCF . 

01590000 
01600000 

01610000 

*          CHECKS     IF    OPTION     IS    VALIO 

01620000 
01650000 

>u20.u 

'■SICF 


START 
1  CUL 


DATE:      ',7/02/U 
Tint:     17=39 
PAGE  :     '. 
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J*- 


7 
12 


TO     H3J0R. 
TO    i*IN0R. 


IF    M4JSVS    OF     INAREA    NOT    ■ 
OBJECT    OF     INARE4    NOT    * 

HOVE     1    TO    I 

GO    TO    MCFNSUP. 

IF    ACTION    OF     INAREA    =     *D» 
GO    TO    MCF1-STEP. 

IF    NEWRE9    =     *H*     THEN 
GO    TO    MCF2-STEP. 

IF    NEUrtEa    NOT    =    'V     THEN 


**INI  TMLIZE    VARIABLES 


**IS    OPTION    VALID? 
**NAJ0R    SYSTEN-0 
**QBJECT-EH 


MOVE    ^    TO    i 
GO     TO    MCFNSUP. 


*       FETCHES    AND    PROTECTS    FIELDS    FOR    A    CERTAIN    COMMAND 


MCFl-STEP. 

MOVE     "STEP-1* 


WHERE    MAJ5YS= 
AND    ACTION= 
AND    OBJECT='E 
AND    SC«TVPE=" 
AND    SRCriCSIT= 
END-EXEC. 


IF    SOLCOOE    =    +100    THEN 

MOVE    OPTNF     TO    M5G    UF    CUTANEA 


»*FETCH    FIELDS    FOR 
**     A    CERTAIN    RE0UE5T 


INAREA. ACTION 


GO    TO    END-QSNSflCF. 


**FILL    IN    TEXT    LINES 


**(HE  AD  INCHES  SAGE,  Pf  KEYS) 
MOVE    HEAOTXT    OF     POPTVAL     TO    HTITLE. 

MOVE    INFOTXT    OF     POPTVftL     TO    MSG    OF    OUTAREA. 

MOVE    PFKTXT       OF    POPTVAL     TO    PFKTEXT    OF     OUTftiUA. 


01640000 
01650000 
01660000 
01670000 
01680000 
01690000 

owobooo 

01710000 
0172  0000 
01730000 
01740000 
017S0Q0& 
01760000 
01770000 
01 730000 
017900CO 
01SOOOOO 
01310000 
01320000 
01830000 
01840000 

dlaSoUiio- 

01860000 
01870000 
01380000 

01390000 
01900000 
01910000 
01920000 
01930000 
01940000 
01950000 
5190CP00 
0~1970000 
01930000 
01990033 

_er?M7JOo"o— 

02010000 

02020000 

0203  0~O"C0~ 

02040000 

02050000 

02040000 

02070000 


7 

* 

**SAVE  EMPLOYEE  ID 

02080000 

7 
12 
15 

IF  ACTION  OF  INAREA  ■ 
GO  TO  MCF010. 

'a* 

THEN 

**0N  FIRST  DETAIL  LINE 

02090000 
02093000 
02096000 

IF  NAXSEL  =  1  THEN 

MOVE  NGRNUMUI  TO  EMPNO  OF  PEMPL 

GO    TO    MCFQ10."  '  . 

-AXSFL     <     1      THEN 
MOVE     3    TO     I 
GO    TO    MCFNSUP. 


02100006 
02110000 
02130000 
02U0000 
02150000 
02160000 
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START 
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OATE:     B7/)2/12 
TIME:     17: J9 
PAGE:     5 


m 


if  on r i  ioi  itMCRic  t'*en 

MOW?  4  TO  [ 

GO  JO    MCfSSUP. 
IF  OAT?  NOT  NUMERIC  THEN 

MOVE  DAT1  TO  0AT2 
MOVE  '0'  TO  0AT1. 


:foos. 

move  data?  to  i. 

If     I    >    MAXSEL     THEN 


MOVE     5    TO    I 
GO     TO     MCFNSUP. 


MOVE    HbRNbMIIl     TO    EBPHO    OF     ?~V?L. 


O217C0GQ 

02:  ioooo 

_      O'il  iOOOO 

03^00000 
02210000 

02220000 

02230000 
■INPUT  DATA  CONTAINS  02240000 
•THE  DETAIL  LINE  NO.  02250000 
02260000 
02270000 
02230000 
0>290000 
02300000 
02310000 


-SAVE  EMPLOYEE  10 


F010. 

MOVE  0  TO  I. 
WCF012. 


C2320000 
02330000 

••CLEA3  FIELD  WITH  BLANKS  02340000 
02350000 
02360000 
02370000 


12 

ADO 

TO  I. 

02380000 

12 

MOVE 

SPACES  TO  LINEOI It . 

02390000 

7 

* 

••MCF012  LOOP 

02400000 

«CF-L"DP12, 

PERFORM  1CF012 
UNTIL  I  >  14 


02410000 
02420000 
02430000 


O2U0C00" 

02450000 

02460000 


•OPE*  DH  CURSOR 


02470000 
♦GET  DEPARTMENT  C        02480000 

•EMPLOYEE  FIELD  NAMES    02490000 


i       7 

* 

**FR3fl  DISPLAY  LINE 

025930CO 

* 

KCFOU. 

02510000 

12 

AOO  1  TO  I. 

02520000 

12 

EXEC  SQL  F=TCH  OH 

0253O000 

21 

INTO  :PDSPTXT.OSPLlNE» 

:PDSPTXT.LINENO 

02540000 

12 

END-EXEC. 

02550000 

02560000 

12 

IF  50LC0DF.  NOT  =  +100  THEN 

02570000 

15 

MOVE  OSPLINE  TO  FTELOUII 

02580000 

IF  I  <  10  THEN 

02590000 

13 

GO  TD  MCF014. 

02600000 
02610000 

1     * 

02620000 

? 

* 

••CLOSE  OH  CURSOR 

02630000 

12 

EXEC  SOL  CLOSE  DH  END-EXEC. 

02640000 

IF     I     :    1     THEN 

rtOVE     OSP'JF     TO    HS"g    OF     (lUTAREA 

go  ro  emi-dsnkhcf-. 


OT5T0OOO 
02660000 
02670000 
"076B0OTJO- 
ROTECT  THE  MODIFIABLE  02690000 
ATTRIBUTE  FIELDS  02700000 


7-90 


DATASET:    BSMl?0.»S05fl,1 

HEMttEV:       DSN-lrtCf 


•  ♦REPLACE    PROTECTED    P A t-MOD If  :  : 0         027?QrC.~> 

»*+225    =    X'OOEl'  .      02730.10 

MOVE    0    TO    I.  02740 000~ 

02  7500CO 

02760000 

02  77"0000 
02780000 

_  02790000 

»  **MCF316    LOUP       "  02800000 

MCF-L00P16.  02810000 

PErfFORfl    HCF016 02320000 

UNTIL    I    >    14.  02330000 

*  **IF    DISPLAY    OR    ERASE    ACTI1N       02840000 
* »*PR0recT    EVERY    3EIAIL  0285000") 

*  i*INFUT    riELC  02850OC0 
If    ACTION    OF     INAREA    =     "D*    OR  02870000 

ACTION    OF     INAREA    =     'E'     THEM 02830CJJ3 

GO    TO    MCF030.  0289000T" 

02900000 
* *»IF    UPDATE    OR    ADD    ACTION         02910000 

*  **PROTECT    EMPLOYEE-ID  02920000 

*  **AND    DEPARTMENT    FIELDS  02930000 
IF    ACTION    OF     INAREA    =    »U'     THEN 02940000 

GO    TO    KCF022.  0295O000~ 

IF    ACTION    OF     INAREA    NOT    =     'A'    THEN  02960000 

MOVE    6    TO    f  02970000 


15 

GO    TO    MCFNSIJP. 

02930000 

7 

* 

•  *IF    ADD 

02990000 

7 

* 

•♦UNPROTECT    EMPLOYEE 

ID    FIELD    03000000 

IF     SRCH     Of     INAREA     =     'EI*     THEN  03010000 

HOVf    DATA6    TO    FIEL22I61  03020000 

EXEC    SQL    SELECT    FKPNO     INTO    :  PEMPL.  E.1PN0         03030000 


FR0.1    VE.1PL    WHERE     EMPN0-:DATA6  03040000" 

END-EXEC  03050000 

03060000 

**DOES  EMPLOVEE ffTOTOTJTJO- 

**EXIST  ALREADY?         03080000 
IF  SOLCODE  =  0  THEN 03090000 


ta 

GO    TO    MCF03S 

03100000 

is 

ELSE 

03110000 

1         i« 

GO    TO    MCF020. 

03120000 

03130000 
♦EMPLOYEE  NAME        03140000 


12 

IF    SRCH    Df     INArtEA    =     'tH>     THEN 

03150000 

15 
15 

7 

, 

MOVE    0ATA15     TO    FIELD2I9J 
GO    TO    NCF020. 

♦♦DEPARTMENT 

ID 

03li0o60 
03170000 
03180000 

12 

IF     SRCH     Of     INAREA     NOT     =      'DI'     THEN 

03170000 

03200000 
03210000 


12 

MOVE     DATA3    TO    FIELD2(10t. 

03220000 
03230000 

7 

* 

**    REPLACE    UNPROTECTED    PRE-HQDIFIEO 

03240000 

7-91 
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COL 

8 
12 

*                                                                         *•     *V>VrT*')nc'P"—                                                      D32500';J 

MCF"!   '•                                                                                                                                                                 OS2600IO 
rtlVS    M9I    Til   MTIIft.                                                                                                               032700C0 



8 

'               8 

"CEO*-.1.                                                                                                                                                                 01230000 

MOVE    6    TO    I.                                                                                                                                        03290000 

KCF024.                                                                                                                                                                 03300000 

12 

Hill*    1     IU    1.                                                                                                                                           03310000 
MOVE    +193     TO    rtTTRlII.                                                                                                               03320000 

8 
12 
15 

KF-U)QP24,                                                                                                                                       03340000 

PERFORM    MCF024                                                                                                                                  03350000 

—                                 'JUTIL     I    >    9.                                                                                                                                imAO^Ti 

7 
7 

03370000 

*  "CURSOR    POSITION                                   03J80OC0 

*  *•    -16191    =    X*C0C1»                              03390UCO 

12 
15 

MUVt    -16141     IU    AITRI/J.                                                                                                          03400000 

IF     ACTION    OF     INAREA    =     ' 1 •     THEN                                                                                       03410000 

GO    TO    P.CrRETl.                                                                                                              034?nnnn 

7 
7 

tHIH»IH*«ttnMHItHitH.tU»ttttHtttHHHitMtHtUiHttH      03430000 

*  flODSf     UPDATES,    OR    ERASES    AND    PRINTS    A    MESSAGE                                                   03440000 

•  •••••""a****.*************************.***************.****..*    034  5  0000 

12 

:        i2 

HLF030.                                                                                                                                                                 03460000 
MOVE    EMPNU    OF     PEMPL    TO    FIELD2I6).                                                                               03470000 
MOVE    SPACES    TO    F IRSTNM E-TFXT    OF    PEMPL.                                                                 03480000 

7 

LASTNAHE-TEXT    OF    PEMPL.                                                                 03430000 

03500000 

15 
1              1> 

EXEC     SQL     SELECT     *                                                                                                                                         0J5200OO 

INTO    :PEMPL    FROM    VEHPL                                                                                                    03530000 
L'HERE    EMPNQ=:PEMPL.EMPHO                 *                                                                             03  540000 

7 

END    CXCC.                                                                                                                                                 03S50000 

03560000 
*                                                                                                                     "EMPLOYEE    NOT    FOUND          03570000 

12 
15 

IF     5QLCO0E    =    +100    THEN                                                                                                            O358C000 
MOVE     '0011*     TO    MSGCODS                                                                                                    03590000 
GO     TO     MCFMSG.                                                                                                                                             03600000 

12 
12 

03610000 
"UVE    UORV.OEPT    OF     PEMPL    TO    FIELD7I1).    FIELD2H0I.                                      03620000 
MOVE    rlSSTNME-fEXT    OF     PE1PL     TO    FIELD2<7).                                                         03610000 

12 

12 

MOVE    NIOINIT       OF     PEM?L    TO    FIELD2(3>.                                                                      03440000 
MOVE    LASTNAME-TEXT    OF    PEMPL     TO    FIEL02(9t.                                                         03650000 
MOVE    SPACES     TO    D EPTNAME-T EXT    OF    POEPT.                                                                 03660000 

7 
12 

036;odoo 

*                                                                                                                          +*FCTCH    DEPARTMENT          03530000 
EXEC    SOL    SELECT     *                                                                                                                          C',A90000 

15 
12 

INTU     :PDFPT    FROM    VDEPT                                                                                                    01700000 

WHERE     DEPTNO=: PEMPL. UORKDEPT                                                                                    0  3710000 

END-EXEC.                                                                                                                                                 03770000 

7 
12 

03 '/J  0000 

••DEPARTMENT    FOUND          03740000 

IF     SgLCODE    NOT     =    +100    TMEN                                                                                                 03750000 

15 
15 

HOVE    DtPTNAHt-TEXT    Of    pDEpT    TO    MELD2I2I                                              0376000? 

MOVE    MGRNO            OF    PDEPT    TO    FIELD2M1                                                                 03770000 
MOVE    ADHRDEPT    OF    POEPT    TO    FIEL02U).                                                              03780000 

» 

-* 
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STA«r 

COL 


r  A  S  £  T  s 


date:   H7/ji/u 

THE:     17:J" 
PAJE:     1 


12 

15 


•*o«t;    »d«    ri:   pftEV* 

60    TO    END-HSN8MCF. 

HCf2-~STZP~.  ~~ 

MOVE     •STEr-?»        TO    HINH'. 

HOVE    0    TO     I . 

(1CF032. 

ADD    1     TO     :. 

ROW    +225    TO    ATTRUU 

"OVE    TftAN&ATAMl     TO    FIEL02I  II. 


••HCF032    LOOP 


'eRFORN    MCF032 
UNTIL     I    >     14. 

I-IOVE     TRAND4TAI6)     TO    EliPNO    OF    PE.1PL. 
IF     ACTION    OF    INAREA    =     'E'     THEN 

GO    TO    KCFOSO. 


03  7'nOO 

os  iooooo 

03310000 
03  82  0000 
03830000 
03840000 
03850000 
03860003 
03670000 
03830100 
03890030 
039000CO 
03910000 
03920000 
03930000 

"  "5T9  45W0- 
03'/50000 
039*0000 

~~0T9?O~0UO~ 
03980000 
03990000 
04OO0(T00~ 
04010000 
04020000 


7 

7 
8 

HCF034. 

••CALCULATE  FIRST  NAME 
••LENGTH 

04030000 
04040000 
04  050000 

IS 
15 

TF  WRK< I )  =  •  »  THEN 
SUBTRACT  1  FROM  I 
IF  I  >  1  THEN 

04060000 
04070000 

04030000 

CO  TO  .1CF034. 

04090000 

MOVE    I    TO    FIRSTNfl"E-LEM    OF     PEMPL. 

*OVE    TRANCATAI8I     TO    NIDINIT    OF    PEMPL. 

WOVE    TRAND4TAI9I     TO    L ASTNAME-TE XT    OF    PEF1PL» 


••CALCULATE    LAST    NAME 


04100000 
04110000 
~0~4120~W0~ 
04130000 
04140000 

"OTTstnnro- 

04160000 
04170000 


7 

8 

12 

*                                         **LENGTH 
MCF036. 

IF  URKt II  =  «  •  THEN 

04180000 
04190000 
04200000 

15 

18 

SUBTRACT  1  FROM  I 
IF  I  >  I  THE* 

GO  TO  1CF036. 

04210000 
04 220909 

04230000 

4 

12 

NCF037. 

WOVE  I  TO  LA5TNAME-LEN  OF  PEflPL. 

04240000 
04250000 
04260000 

12 

POVE  TRANDATAIlOl  TO  UORKDE>f  OF  PENPL. 

IF  ACTION  OF  INAREA  NOT  -  'A'  THEN  GO  TO  HCF040. 

04270000 
04280000 
04290000 

7 

7 

*                     •*  INSERT 

04  300UUO 
04110000 

04320000 

7-93 


■i  r  A  S  f.  I  : 
r18FW: 


STAR  I 
COL 


1ATE:     87/ 
THE:     17: 

par,*:     ) 


_.,. 5 + 6_ 


EXEC     SUl     WHENEVER    SfllEAOIl    CONTINUE     END-EXEC. 

**PERFORM     INSERT 
EXEC    SQL     INSERT     INTO    J;1PL 

UMPMOTFIRSTNME,HIDINITtLASTNftl1E,WORK0EPTl 

VALUES!  :?<;HPL. EXPHO,  :  PEMPL  .F  I  RSTN.^E  t  :  PEMPL  .M  0  IN  I  T  , 


:  ft«PL.LASrN,l-l 


*N0~EXEC. 


IF    SOLCOOE    =    0    THEN 


.  :PEMPL.UO.TKDEi»T) 


"  EMPLOYEE  SUCCESSFULLY  A30EP 


MOVE  T.)?I»  TO  HSGCODE 
GO  TO  M<:F04I. 


IF  SOLC03E  NOT  =  -903  THEN  SO  TO  03-ERRQR. 
*»  EMPLOYEE  FXISTS  ALREADY, 


*•  ADD  NOT  DONE 


EXEC    SOL    WHENEVER    SOLFftROR    GO    TO    DB-ERR1R     END-EXEC. 
MOVE     •005E'     TO    HSSCODE 
GO    TO    MCFMSG. 


**    UPDATE 


IF  ACTION  OF  INAREA  NOT  =  'U*  THEN 

MOVE  8  TO  t 

GO  TO  MCFNSUP. 


**PERFOHM  UPDATE 

EXEC  S1L  UPDATE  VEMPL __   

SET  FIRST-JME=:PE1PL.f  I  RSTNMF  .1  ID  OTiT=T?";mpL.  M  tDI  N  IT  » 
L  AST  NAHE  =  :PEKPL.L  AST  NAME  rWORKDEPM:PEMPL.  WORKDEPT 

WHERE  r-1PN0=:  PEMPL.EMPNO 

END-EXEC.  

IF    SQLCOPE    =     HOP    THEN 

**    EMPLOYEE    DOES    NOT    EXIST. 
**    UPDATE     NOT    DONE 


**    EMPLOYEE    SUCCESSFULLY    UPDATED 


MOVE     '004I»     TO    HSGCflOE. 

MCF041. 

MOVE    WORKDEPT    OF     PEMPL    TO    FIELD2t 1 (« 


04  J  30000 
04  3',  no  00 
0435^.00 
0*360000 
04370000 
04380000 
043?  :0&TT" 
0  4400000 

044  1 OOCO 
04420000 
04430000 
0444SOUQ 
04450000 
04460000 
0447?Q00 

— oTVicoTST" 

044.70000 
_045jOO0O 
045100OO- 
04520000 
0  45 3  0000 

045  40000 
04550000 
04560000 
04570000 
04530000 
04590000 

.04600000" 
04610000 
04620000 
04630000 
04640000 
04650000 

"'GU6COO0 
04670000 
04630000 

~ 0T57D0OO 
04700000 
04710000 
04720000 
04730000 
04740000 
04750005- 
0  4  76  00  00 
04770000 
04780000 
04790000 
04800000 
"04810000 
04820000 
04830000 

"04340000"" 
04850000 
04860000 


7-94 


DATQ  - 

reus* 


DS*120.a 

nsNsncr 


DATE:   i  7 / 0  2 / 1 ^ 
TINE:  17:3? 
PAGE:  10 


L 


r 


move 

EKEC 


OS     TO    DEPT KflE-TEXT    J'    POEPT. 

iELECT     * 
if'OEPT    FROM     VtlcPT 


UHc-F     DEPTNO=:W0UDEPT 


IF    S&'.'rm    =    0    THEN 

HU.E    OEPTNAME-TEXT    OF     PDEPT    TO    FIELD2I2). 
ML.  ;£    HGRHO  OF     PDEPT    TO    F1ELD2I31 

ntH*    ADNRDEPT    OF  >DEPT    TO    FIELD2I4) 

G<;     TO    HCFM5G. 


HOVE  -SPACES  TO  FIPLD2III. 


MCF-L00P42. 


•PUT    SPACES    AT     END    OF    FIELD 


*HCF042    LOOP 


PERF0R1    .'1CF042 

UNTIL     I    >    3. 
60   TO   ncfrss. 


EKEC    SQL    DELETE    FROM    VEHPL 

WHERE    EMPNO=:PEMPL.EMPNQ 
EttD-EXCC* 


IF     SQLCODE    =    0     THEN 

HOVE     ■     '     TO    PREV 

MOVE  '0031*  TO  MSGCODE. 


•PERFORM  ERASE 


EMPLOYEE  SUCCESSFULLY  ERASED 


04370000 

0'.  18  0000 

04390000 

04900000 

04910000 

04920000 

0  49  30000 

C  W40000 

04950000 

04960000 

04970000 

34980000 

04990000- 

05000000 

05010000 

O5C2O0C0 

05030000 

OS040000 

05050000 

05060000 

05070000 

05080000 

05090000 

05100000 

-(J51lOO0O 
05120000 
05130000 

""05140000 
05150000 
05160000 
05170000 
05130000 
05190000 


;    7 

4 

**  EMPLOYEE  DOES  NOT  EXIST, 

05210000 
05220000 

7 
12 
14 

IF  SQLCODE  =  +100  THEN 
HOVE  *0C6E*  TO  H5GC00E. 

**  ERASE  NOT  DONE 

05240000 
05250000 

1    „ 

I     15 

IF  SQLCODE  =  0  OR  +100  THEN 
GO  TO  HCFMSG. 

05270000 
05280000 

cRROR  -  INVALID  REQUEST 


OS 3 2 0000 
05330000 
05340000 


0  53  5"  0000 
05360000 
05370000 


**  PRINT  MESSAGE 


17 

CALL  *DSN8MCG*  USING  MAJOR  MSGCOOE  OUTMSG. 

05380000 

12 

MOVE  OUTMSG  TO  MSGTXT  OF  HSG. 

05390000 
05400000 

7-95 


'.I  VifTJ  'ri'H  M.DSNS""F* 
:i  t£B:   n:..s  •  iCf 


START 
COU 


E*D-l'Vj»KCF.  " 


DATE:  g?/0?/12 
TINE:  17=  39 
PAGE:  11 


7-96 


IT45ETI     OSM?0.  DShSfl 


s  rfl»  r 

COL        


—1 1 ♦_ 


S'JL    ?    SECONDARY    SELi-CUON    F~?H     1AJOR    SYSTEM    0 


rin'iLt    Horn     =_  ,)^3,icfl 


DATE:     S7/02/:.> 
TIME:     17:24 
PARE:     1 


CQJQL     •00010093 

0002C?"0 
00030000 


DtSCRIPTIYE    NAME    ■ 


0B2       SAMPLE    APPLICATION 
SQL    ?    SECONDARY    SELECTION 


CICS 

COBOL 

ORGANIZATION 


00040000" 
00050000 
00060000 
00070000 
00080000 
0009000 


COPYRIGHT    =     5740-XYR    IC)    COPYRIGHT     IBM    CORP    1982,     1985 
REFfcR    TO    COPYRIGHT     I.1STRUC  fl  0>tS    FORM    NUMBER    6120-20  8  3 


OOIOOOOO 
00110COO 
0011500G 


STATUS    =    RELEASE    2»    LEVEL    0 


00120000 
00130000 
00150C-00 


FUNCTION    =    THIS    MODULE    HToUCtS    A    SECONDARY    SELECTION    SCREEN OOlAOCOl 

FOR    OBJECTS    IN    MAJOR    SYSTEM     '0*     I  ORGANIZATION >  00170000 

CALLED    BV    DSN3IC2    IS8L2    MAINLINE) 00180000 

~~  00190flOlT~ 


NOTES 


•init 


00200000 
00210000 


NODULE  TYPE 
PROCESSOR 


MODUTE  SIZE 
ATTRIBUTES 


BLOCK  OF  COBOL  CODE 

D82   PRECQNPIt£R(  COBOL  COMPILER 


SEE  LlNKEDtf  ' 
REUSABLE 


OO22  0"00O~ 

0O23OC0O 

00240000 


ENTRY  POINT  =  DSnSMCA 

PURPOSE  ^  JEE  FUNCTION 
LINKAGE  »  NONE 


00250000 
00260000 
00270000 


" 00280000 
00290000 
00300000 


SYMBOLIC  LABEL/NAME 
INSCRIPTION 


CONMPTR 

POINTER    TO    COHMAREA 


(COMMUNICATION    AREA) 


00310000 
00320000 

00330000 


SYMBOLIC  LABEL/NAME 
DESCRIPTION 


~00340000 
00350000 
00360000 


POINTER  TO  COMMAREA 
[COMMUNICATION  AREA) 


~ooj7mTao~ 

00380000 

00390000 


EXIT-NORMAL    =    END    OF    COOE    BLOCK 


f XIT-ERROR 


00400000 
00410000 
00420000 


IF    SOL    ERROR    OR    SQL    WARNING, 

JJL    WHENEVER    CONDITION  004*0000 

SPECIFIED    IN    PSN8IC2    HILL     BE    RAISED     AND    PROGRAM       00450000 


WILL    GO    TO    THE    LABEL    DB_ERR0R. 


ERROR    MESSAGES    ■ 

DSN8067E    -    UNSUPPORTED    SEARCH    CRITERIA    FOR    OBJECT 


OOfSffoW 
00470000 
00480000 
"004900150" 
00500000 
00510000 
00520000 
00530000 
00540000 


7-97 


•1  ■■■  1  :     tJSNl  >1.  OSN.idMP 
;IH:         DSN81CA 


START 

CHL   * 1  — 


DATE:  17/02/12 
TIM:  17:2* 

PAGE:  2 


-2 + 3- 


7                       «                          U0NSOQ9E    -    NO     /ALIO    SELECTIONS    QUALIFY    fOR    THIS    REQUEST    0O55OOOO 
7                        •                           TSN6074E    -    03Tfl     is    TOO    LING    FOR    SEA.1CH    CRITERIA                          00560000 
7                       *                                                                                                                                                                                    00  $70900 

7                       *          EXTERNAL    RErERENCES    =                                                                                                                 00530000 
7                       -                  ROUTINES/SERVICES    =                                                                                                               00590000 
7                       *                       DSNBMCG                                        -    ERROR    MESSAGE    ROUTINE                                      00600000 

/                        •                                                                                                                                                                                    00610000 
7                       -                  DATA-ftREAS    =                                                                                                                                  00620000 
7                        •                          COMMAREA                                   -    PGM    CDHMUN  IC  AT  10*   AREA                                  00630000 

7                        •                                                                                                                                                                                    00640000 
7                       *                  CONTROL-BLOCKS    =                                                                                                                       00650000 
7                       •                          S8LCA                                          -    JGL    COMMUNICATION   AREA                                  00660000 

7                       *                                                                                                                                                                                   00670000 
7                       *          TABLES    =    NONE                                                                                                                                        00680000 
7                       *                                                                                                                                                                                   00690000 

7                       *          CHANGE-ACTIVITY    =    W.E                                                                                                               00700000 
7                       *                                                                                                                                                                                   00710000 
7                       *                                                                                                                                                                                   00720000 

7                       *       *  PSEUDOCODE*                                                                                                                                             00750000 
7                       •                          /*    SECONDARY    SELECTION    FOR    NAJSYS    '0*    -   OBJECTS                          007*0000 
I                       *       1.     OS    -    ADMINISTRATIVE    LISTING                                                                                           00750000 

7                       *       2.     DE    -    INDIVIDUAL    DEPARTMENTS                                                                                           00760COO 
7                       *       3.     EM   -    INDIVIDUAL    EMPLOYEES                                                                                                 00770000 
7                       *       DS    AND    DE    USE    THE    SAME    CURSOR    WHICH    SELECTS    DEPARTMENTS    AND            00730000 

/                       *       MANAGERS.     FM    USES    ANOTHER    CURSOR    WHICH    SELECTS    BCPArTmENVS               00770000 
7                       *       AND    EMPLOYEES.     THE    FIELDS    SELECTED    BY    THE    TWO   DIFFERENT                       00300000 
7                       *       CURSORS    ARE    THE    SAME    IN    NUMBER    AND    HAVE    MATCHING                                          00810000 

f                   *      CHARACTERISTICS.    THEREFORE    IT    IS  POSSIBLE   TO   USE    THE   5ANE               00820000 
7                       *       CODE    FOR    BOTH    SITUATIONS    MOST    0?    THE    TIKE.                                                           00830000 
"'                       *                                                                                                                                                                                   008*0000 

/                       *     THERE    ORE     TWO    SITUATIONS    UNDER    WHICH    THIS    MODULE    CAN    BE     CALLED       OOSSOOOO 
7                       *          I.    THE     SYSTEM    FIELDS    HArfE    CHANGED    -    NEW    REQUEST                                          00860000 

7                       *          2.    AN    ANSWER    TO    A    PREVIOUS    RfflUEST                                                                              00870000 

f                       *    IF    COMPAKfl.NEW«EQ=« Y«     THEN    SYSTEM    FIELDS    CHANGED    AND                                  00380000 
7                       *    THIS    IS    A    NEW    REQUEST                                                                                                                       00390000 
7                       *                                                                                                                                                                                    00900000 

/                     *    THIS    MODULE    SHOULD    SET    THE    FOLLOWING    TWO    FIELDS  BEFORE    EXITING       OOV10000 
7                       *        1.     PC0NVSTA.PHEV='S*          (FOR    NEXT    TIME    AROUNOI                                                   00920000 
/                       *       2.     PCONVSTA .MAXSEL=    NO.     OF     ENTRIES    ON    SEC    SEL    SCREEN    BUILT               00930000 

7                     *                                                                                                                                                                 00V40000 
7                       *       PROCEDURE                                                                                                                                                     00950000 
7                       *             INITIALIZE    TWO    CONTROL    FIELDS                                                                                        00960000 

'                     *                                                                                                                                                                  00970000 

7                *         casecjtw  request:                                                                                     00930000 
•                     initialize  minimum  values                                                          00990000 

r                   *                        ASSIGN   FIELD   VALUES   FOR    'LIKE'    IH   SaL   SELECT                          OlOOOOOO 
7                        *                             RETRIEVE    HEADING    LINE.PFK    DESCAND     INFO    MESSAGE                        01010000 
7                       •                             RETRIEVE     TEXT    DESCRIPTION   LINES                                                                   01020000 

7                       *             ENOCASE                                                                                                                                                     01030000 
7                       *                                                           .  .                                                                                                                     01040000 
7                          *              ASSIGN    DATA     VALUE     FROM     SCREEN    FOR     'LIKE*     PROCESSING                                 01050000 

7                   ■                                                                                                                                                   01060000 
7                       *             IF     »EM»    SEARCH    CRITERIA    THEN                                                                                           01070000 
7                       *                             OPEN    EMPLOYEE    CURSOR    ASCENDING                                                                     01080000 

7-98 


BATE:     37/02/12 
TIME:    17:2t 
pftse;   3 


7 
f 

7 

ELSE 

V-ti  ADMIN  ST  CURSOR  ASCENDING 

01090000 
01100000 
31110000 

7 

SET  UP  «:)J  LOOP*  VALUES 

•FETCH*  FBDN  THE  APPROPRIATE  CURSOR  UP  TO  flAX  OF  13  TIKES 

01120000 
01130000 
01140000 

7 

7 
7 

if  no  /alio  entries  then 
•:eid  message 

11150600 

01160000 
01170000 

7 

7 

7 

SAVE  Mil  VALUE  FOR  POSSIBLE  SCROLLING  REQUEST 

01180000 
01190000 
01200000 

7 
7 
7 

RETURN 
-ND. 

01210000 
01220000 
01230000 

7 



O127O000 

12 

HOVE  'DSNanCA*  TO  MAJOR. 

01280000 

1.' 

HOVE   SPACES    TO  MINOR. 

01290000 

01S00O00 

7 

t«tHiintiHttltrit*ttt»i«tittttitt*tl**'*t">l>ii<Ht>>t»*«t*tHl 

01310000 

7 

*       ''INITIALIZE  CONTROL  FIELDS 

01320000 

7 

**************  4*** **************************  ****** 4 ************** 

01530000 

12 

MOVE  'S'  TO  PREV  OF  LA5TP0S. 

01340000 

12 

ROVE   0   TO  NAXSEL  OF  LASTPOS. 

01350000 

12 

MOVE  0  TO  I. 

01560000 
01370000 

I       1 

*                                              **BLAN<  OUT  LINt 

01380000 

3 

F1CA010. 

01390000 

12 

ADO  1  TO  I. 

01400000 

12 

MOVE  SPACES  TO  LINEOf  I  »  . 

01410000 

HCA-LQOP10. 

PERFORM    .ICOOTO- 

UNTIL     I     >     14. 


**0£TER1INE     IF     NEU    REQUEST 


IF     NEURE8    OF     COMPARH 


MOVE    LOW-VALUES       TO    DIfltMf    EIHIN 


**MCA010    LOOP 


»*NEU    REQUEST 

**    INITIALIZE   MlJJtnO 
**    VALUES 


**    ASSIGN    FIELD    VALUES 
**    FOR   LIKE    SQL    SELECT 
HOVE    1  Ttl'  LDEPTNOL,    LDEPTNAMLt    LHGRNOL,    LMGRNAMEL» 

LEMPNOL, LEMPNAHEL 

HOVE    PERCENT     TO    LOEPTNOO*    LDEPTNANDr    LMGRNODr    LHGRNAHEO? 
LEHPNOD*       LEHPNAMED. 


01420000 
OU30000 
01440000 
3T4500DO 
01460000 
01470000 
~0~T4SOOOO 
01490000 
01500000 
01510000 
01S20000 
01530000 
01540000 
01550000 
01560000 
015  70000 
01580000 
01590000 
Ol&OOOOO 
01610000 
01620000 


•  .  7-99 


star  r 

CM. 


date:   37/02/12 

TI.IE:     17:2* 
PAGE:     4 


C 


•RFlHtEVES  . 


.  -.  i  v  DESCRIPTION,  INFO  MESSAGE, 


*E  POINTER  INTO  TABLE  OF  DETAIL  HEADING  TEXT 


EXEC  S«L  SELECT  I 
INTO 


01630003 
01640000 
01650000 
01660000' 
01670000 

01630000 

••RETRIEVE     INFORMATION    01690005 
EAOTXTt     INF  0  TXT,     PFKTXT,     DSPINOEX  01700000 

:POPTVAL.HEnPTXT»     =POPTVAL.  INFOTXT  , 01710000 


iPOPTVAL.PFKTXTf 
FROM     VOPTVAL 
jWCRfc  MAJSYS         = 


:pOPTVAL.0SPINDEX 


INAriEA.riAJSYS 


01720000 
01730000 
01740000 


30 

30 
30 

ANO    ACTION         = 
*NQ    OBJECT          = 
AND     SRCHCRIT    = 

:INAREA. ACTION 
rINAREA. OBJECT 
HNAREA.SRCH 

01750000 
01760000 
01770000 

30 
7 

ArJD     SCRTYPE        = 

»S» 

»*ERHUR? 

01780000 
01790000 

oiaooooo 

12 
12 

15 

EHD-E XEC  . 

IF    50LC0DE    =    HOO    THEN 

MOVE    ■     •     TO    PREV    OF    LASTPOS 

01810300 
01820000 
01830000 

15 
15 

22 

MOVE    QPTNF     TO    MSG    OF    OUTAREA 
STRING    MAJSYS    OF     INAREA    SPACEr 
OBJECT    OF     INAREA    SPACE* 

ACTION    OF    INAREA    SPACE* 
SRCH    OF     INAREA    SPACE* 

01840000 
01S50000 
01860000 

22 
IS 
15 

•S"     DELIMITED    BV    SIZE 
INTO    MSGN0D2 
60    TO    END-DSN8NCA. 

01870000 
01830000 
01890000        ' 

7 
12 

HOVE    HEADTXT    OF    POPTVAL    TO    HTITLE 

"OBTAIN    INFORMATION 

01900000 
01910000 
01920000 

n 

MOVE     INFOTXT    OF     POPTVAL    TO    MSG    OF 

OUTAREA. 

01930000 

01940000 
O19500C0 


i     ; 

*****************  ************************* *.+***.***.***********     01960000 
••RETRIEVES    TEXT    DESCRIPTION    LINES                                                                                01970000 

7 

7 

••TRY     TU                                                     U1VVUUUU 
••RETRIEVE    INFORMATION          02000000 

EXEC     S3L     SELECT    DSPLINE 


INTO     :PDSPTVT.D5PL1NE 


02030000 
02040000 


AND  LINENO" 


02050000 
02060000 
02070000 


7 
12 
15 

IF     SflLCODE    ■     HOO     THEN 

MOVE     ■     *    TO    PREV    OF    LASTPOS 

••ERROR? 

02080000 
02090000 
02100000 

15 
15 
23 

MOVE    OSPNF     TO    rtSfi    OF    OUfAREA 
STRING    MNDX     ■  «     DSPINOEX     OF    POPTVAL. 
DELIMITED    BY-5IZE 

'    L01»» 

02110000 
02120000 
02130000 

15 

INTO    M5GM0D2 
GO    TO     END-DSN8MCA. 

U2U0000 
02150000 
02160000 

7-100. 


DATE:  .^7/02/lZ 
TIME:  17:24 
PAGE:  5 


STAXT 
COL 


"SPLINE     10    L  IN£0(  1  I  . 


•►OBTAIN     INFORMATION 


*•    ASSI6H    DATA    VALUE    FPOi    SCREEN    FOR     'LIKE*     PROCESSING 
••NOTE    THAT    ALL    TKE    FOLLOWING    SEARCH    CRITERIA    HAY    WOT    BE 
"SUPPORTED    IN    ALL    SITUATIONS    -    HOWEVER    S3L     I    MILL    ONLY 
•  •PE-MIT    VALIO    ENTRIES    TO    SE    PASSED. 


HOVE    60    TO    I. 

HCA022. 

IF    DATHINim    =    SPACE    THEN 

SU3TRACT     1    F3'H    I 

IF     r    >    0    THEN 

GO    TO    MCA022. 


MOVE     I  TO    LOEPTNOL 

MOVE    DATAIN    TO    LDEPTNOD 
IF     I    >    3    THEN    GO    TO    NCA025 


••SKIPS    END    BLANKS 


••DEPARTMENT     ID 


02170000 
J2180000 
02190000 

•02200000 
02210000 
02220000 
02230000 
02240000 

•0225000Q 
02260000 
02270000 
02280000 
02290000 
02300000 
02310000 
02320000 
02330000 
02340000 
02350000 
02360000 
02370000 
023SOOOQ- 
02390000 
02400000 


IS 

ELSE    GO    TO    MCA001. 

02410000 

12 

IF     SRCH    OF     INAREA     =     'DN*      THEN 

02420000 

7 

* 

♦•DEPARTMENT    NAME 

02430000 

15 

MOVE     I                  TO    LDEPTNAHL 

02440000 

IS 

MOVE    DATAIN     TO    LDEPTNAMD 

02450CCO 

15 

IF    I    >    36    THEN    GO    TO    MCA025 

02460000 

15 

ELSE    10    TO    MCA001. 

62470000 

IF     SRCH     OF     INA«EA 


••MANAGER     ID 


MOVE     I  TO    LMG^NtJL 

MOVE    nATAIN    TO    LMGrtNOD 
IF    I    >    6    THEN    SO    TO    MCA025 


02480000 

02490000 


02500000 
02510000 
02520000 


15 

12 

7 

IF     SHCfi 

liO    TU    MCflOOl. 

OF     :>(HRE1     =     '.IN*     THEN 

••MANAGER    NAME 

025JO000 
02540000 
02550000 

15 

MOVE 

1UVF 
IF      I 

I                  TO    LNGRVAMEL 
DATAIN    TO    LMGRNAHED 
>    15     THEN    GO    TO    MCA025 

02560000 
02570000 

02580000 

12 

7 

FL5F 

if    sacH 

GO    TO    MCA001. 

!}f     INABEA    =    »EI»     THE* 

••EMPLOYEE     ID 

02590000 
02600000 
02610000 

15 
15 

MOVE 
MOVE 
IF     I 

t                  TO    LEMPNOL 
DATAIN    TO    LENPNOO 
>    6    THEN    GO    TO    MCA025 

02620000 
02630000 
02640000 

12 

7 

ELSE 
IF    SRCH 

OF     INAREft.s     'EN*     THEN 

••EMPLOYEE    NAME 

02650000 
02660000 
02670000 

15 

15 

ftOV€ 

IF      I 

DATAIN    TO    LEMPNAMED 

>    15    THEN    GO    TO    NCAQ25 

02680000 
02690000 
02700000 

7-101 


DATE 
TIME 
PAGE 


17/02/12 
17:24 


STAKT 
CCL       


-< 7 < 8 


>l    so   t:i    nc.-.-j  )1. 


* U *i  »UP?ORT£  3  _S EARCH 
•CRITERIA    FOR    OBJECT 
•PKINT    ERROR    MESSAGE 


WOVg    '0676*     TO    HSGCOPE. 

CALL   V3SN8HC6'     USING    .iAJQR    flS'SCODE    OUTftS 

HOVf    0UTM56    TO    KS'lTEXT    OF    HSS. 

60    TO    ^WD-PS.HaHCfl.  _______ 


**f>ATA    TOO    LUNG 
**P.UMT    ERROR    MESSAGE 


NCA025. 

move 

CALL 


MQ'*  =  OJTFISu  TO  r,iG7EXT  OF  *•". 
HOVE  »  •  TO  PREV  HF  LASTPOS. 
60    TO    END-DSNSFICA. 


*»    OPEN    CURSORS 


••OPEN    EflPLQVEE 


02710000 
02720000 
02730000 
027*0000 
02750000 
02760000 
02770000 
32780000 
J2790000 
"02  800000 
02810000 
•^2820000 
02330006"" 
02840000 
02850000 

"02840000 
02865000 
02870000 

~0T3TO000 

•02890000 
029000CO 

•02910000 
02920000 
02930000 


7     " 

• 

••CURSOR 

02940000 

15 

IF    OBJECT    OF     INAREA    =     'EM*     THEN 

02950000 

18 

EXEC    SQL    OPEN    ENA    END-EXEC 

02960000 

? 

* 

••OPEN    DEPARTMENT 

02970UOU 

? 

* 

••CURSOR 

02980000 

15 

ELSE 

02990000 

IF     OBJECT    OF     INAREA    =     *DE'     THEN 
EXEC    SOL    OPEN    DEA    END-EXEC 


••OPEN  ALA 


03000000 
C3010000 
0302COOO 


ELSE 

EXtC  SUL  OPEN  ALA  END-EXEC. 


03050000 
03040000 
03050000 


s 

12 

MCA030. 

MOVE     1 

TO     I 

03070000 
03030000 

7 
7 

*       **    FETCH 

FR0.1 

CURSOR 

******* 

....... 

****** 

.... 

0309000ft 

**03100000 

03110000 

THE 

APPROPRIATE 

•umztmwj 

7 

• 

••EMPLOYEE 

03140000 

19 
34 

IF    OBJECT    OF     INAREA     =     '£M     fHEH 

WOVE     SPACES     TO    DEP TNANE-TEXT    IN    POEPT. 
FIRSTNME-TEXT    IN    PEMPLt 

03150000 
03160000 
03170000 

LASTNAHE-fE<f    IN    PE.1PL 

U3180000 

03190000 
03200000 


n 

:PeHPL.FtR5TNHF., 

TpEMpL.NIDlNlT, 

:PEMPL.LA5TNA*E 

0J21UUOO 

19 

END-EXEC 

03220000 
03230000 

7-102 


-JAtt:     87/02/12 

the:    17:.". 
mag:   7 


I         START 
CDL 


_J.  JL  ■iqjecr  of   inar ea  = 


••DEPARTMENT 


03240000 
03250000 
0326^000 
03270000 
03230000 
03290000 


HOVE    SPACES     TO    DEPTNANE-TE XT    IN    POEPTt 
FIRSTNHE-TEXT    IN    PEMPL, 

__ LASTNAME-TEXT    IN    PEHPL 

EXEC    S9L    FETCH    OEA  03300000 

INTO    :P0EPT.OEPTNOt     :  PDEP  T.  1)E  PTNA  M*     •  PDEPT. NG3N0*     03319C0O 

__    :PEMPL.FIRSTNM£t     : PENPL  .H 10  INI T ,  :PEPIPL.LAS TNANE       03320000 

END-EXEC  03330000 

03340000 
**jjj»    OEPAR TSEHT    033 5 0000 


**0R    EMPLOYEE 

e».  se 

riOVE    SPACES    TO    DEPTNAHE-TE XT    IN    PDEPTt 

FlHSTNnE-TEXT    IN    PEHPLt 
LASTNAME-TEXT    IN    PENPL 

EXEC    SOL    FETCH    ALA 

INTO     :P0EPT.DEPTNOt     :  PDE  PT  .  DE  PTN  A.fE  ,     :  PDE PT .MGRNO, 

iPENPL.FIRSTNNE,     :PENPL  .N  ID  INI T » :PEMPL .LASTNAHE 

END-EXEC. 

**    SET    INFORMATION 

032. 

IF     S8LCOE    =    MOO     THEN    GO    TO    MCA004. 

MOVE    DEPTNO         Of     PDEPT    TO    OEPTNUN    OF    BGNCtlll. 

HOVE    DEPTNAHE-TEXT    OF    PPEPT    TO    OEPTNA    OF    flSWCKll. 

MOVE    NGRNO  OF     PDEPT    TO    NGRNUH       OF     BGNClIll. 

MOVE    FIRSTNME-TEXT    OF     PEPIPL    TO    HGRFIN       OF    BJKCKI). 

WOVE    HIDIWIT      OF     PEHPL     TO    HCRSIN      OF    BSMCUll.   

*10VE    LASTNAME-TEXT    OF     PENPL     TO    NGRLNAM    OF     861C1UI. 
MOVE     I  TO    LINENO       OF    aGNCHII. 

ADD    1     TO    *AXSEL. 


03360000 

03370000 

03330000 

~~d~3  -?S0O"O~~ 

03400000 
03410000 

~oT72:0(io~ 

03430000 
03440000 
03450650" 
03460000 
03470C00 
^OT^SSOOO- 
03490000 
03500000 
03510000 
Ci^OOCO 
03530000 
03540000 
O35S0O0O 
03560000 


1       1Z 

12 
17 

Mitb 
If    I 

1     TO     E. 
NOT    =    13     THEN 
GO    TO    HCA031. 

03570000 
03580000 
03590000 

IF    OBJECT    OF     INAREA    =     'EN'     THEN 

MOVE    1»G*N0       OF    PDEPT    TO    EININ 
ELSE  


•  SAVE     MINIMUM 
•EMPLOYEE    NO. 


03610000 
03620000 


njTSTOOUO" 
03640000 
03650000 


•  SAVE    MINIMUM 

•  DEPARTrtENT    NO. 


~<JT6"6~0~(J'{J0~ 
03670000 


18 

NOVE    DEPTNO    OF    PDEPT    TO    DINIr.. 

03680000 

8 

ICAOIK. 

03700000 
03710000 

7 

* 

**N0    SELECTIONS    QUALIFY 

*F0R    THIS    REQUEST 
•PRINT     ERROR    MESSAGE 


03730000 
03740000 


03750U0U 

12 

IF    S8LC0DE    NOT    =     MQQ    OR    NAXSEL    >    0    THEN    GO    TO    HCA090. 

03760000 

12 

HOVE     •0A9E»     TO    P1SGC00E. 

03770000 

7-10.3 


START 
COL 


DATE:     97/0?/12 
T[1E:    17:24 
PAC=:     8  


caul  ■J^l4anc^;,  using  majqk  rsGcone  out*sc. 

MOV*    iWMS4    Tfl    MSGTEXT    OF    OUTAREA. 

HOVE     •_    '     TO    t>XtV    OF    LASTPOS. 


0 3780339 

O379O0' 0 

03795  -:cr3 


************************* 


•CLOSE    CURSORS    AN.0    RETURN 


03300000 
03310000 
03820000 


IF      '?JECT    OF     1NAREA    =     •EH'     THEM 


••CLOSE    EMPLOYEE 
••CURSOR 


SXEC    SOL    CLOSE    EMA    ENO-EXEC 


03830000 
0384 0000 
0185 COOP 

03860000 
0387  0:100 

03880  ;oo 


••CLOSE    DEPARTMENT 
••CURSOR 


:f    08JECT    OF     tNAREA    =     »DE»     TMEM 
EXEC    SQL    CLOSE    PEA    ENO-EXEC 


03890000 
039000.10 
03910J:0 

0392C;)  1 
039300C0 
039400i;0 


•CLOSE    ALA 
•CURSOR 


03960000 

03970000 


EXEC    SQL    CLOSE    ALA    END-EXEC. 


03980000" 

03990000 

04000000 


END-DSN^CI. 
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Appendix  C 


Formal/DB2/ADR  Database  Entity  Comparison 


Formal  Relational 


DB2 


ADR 


Database 

Relation 

View 

Tuple 

Attribute 

Domain 


Database 

Table 

View 

Row 

Column 


Database 

File 

Dataview 
Record 
Field 
*  * 


**  The  system  has  no  term  for  domain.  Domains  are  implic- 
itly defined  when  the  attributes  (columns  or  fields)  are  de- 
clared. 


Formal  Relational/DB2/ADR   Entity  Comparison 
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Abstract 


Data  Base  Management  Systems  (DBMS)  are  playing  an 
increasingly  important  role  in  the  development  of  com- 
puter systems.  Few  studies  comparing  the  relational  sys- 
tems available  for  mainframe  computers  exist.  This  work 
compares  two  commercially  available  systems,  IBM's  DB2 
(Data  Base  2)  and  Applied  Data  Research's  Datacom/DB. 

After  a  brief  introduction  to  the  subject  of 
relational  data  base  management,  DB2  and  Datacom/DB  prod- 
uct families  are  compared  based  on  product  descriptions, 
current  product  prices,  and  system  overviews.  Further 
comparisons  of  the  two  DBMS  product  families  are  made  by 
comparing  a  miniature  application  system  implemented. 
Difficulties  encountered  in  reproducing  the  DB2 
mini-system  at  the  ADR  site  are  described  in  detail. 


